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MONTH 


DIY Toolkit presents array parameters 
and fast floating-point operations; we 
have that working comparison of three 
word-processors, which missed the bus : 
this month, and we hope to start some 
‘notebook’ pages of short ideas to keep 
relations with your QL on an even keel. 


arking back to comments made 
about the hard disk backup pro- 
gram WinBack, it has been 
pointed out to me that this pro- 
gram (and its associate, The Gopher) do 
not Open files in a potentially-dangerous 
fashion, as Archive does. The latter pro- 
gram actually makes a change to a file 
when it Opens it, whereas neither of the 
other two programs does anything to the 
contents of an Opened file. As noted pre- 
viously, it seems likely that an aborted 
backup attempt, using Winback, was the 
result of abad area on the hard disk, rather 
than a corrupted file as such; had the 
problem been simple file corruption, itwould 
have been possible to re-copy the file 
when the backup halted, then re-com- 
mence the backup where it halted. If the 
process is restarted, WinBack passes over 
all the files which have already been backed 
up and starts copying at the file which 
caused the stoppage. Make sure the same 
backup disk is in the floppy drive. 


Preliminary V2 


A preliminary version 2 of Winback has 
been tested, but it did not have the file- 
splitting capability which will be in the 
released version. The intention is for the 
program to split single files between two 
disks, if the end of one disk is reached 
during backing up of a file. For the mo- 
ment, file compression is not planned for 
the good reason that such a feature is 
fraught with potential danger for the user's 
files. In the long run, compression may be 
added, as it is otherwise a very desirable 
feature. At least one file-compression rou- 
tine is already available for the QL, sup- 
plied with the C68 compiler system. Those 
who are fortunate enough to have ED 
drives will not be too concerned about 
compression, since they won't need many 
disks to backup a hard drive. 

A ‘dead’ QL was brought to me for inves- 
tigation recently. When it was switched on, 
the mono screen glowed with an unsteady 
light green and there was no sign of the F1/ 
F2 start-up display. There was an obvious 
choice of two areas to look for the fault — 
either the Qimi mouse interface was play- 
ing up, or the ZX8301 chip which handles 
the display interface was kaput. On the 
basis that one of the owner's Qimis had 
caused trouble before, and this one might 
have to be ‘got at’ to prevent conflict with 
a Gold Card anyway, it was removed, but 


Bryan Davis 
reconsiders 
Winback, disturbed 
ribbon cables and 
mixed disk 
densities. 


the display was still useless. Changing the 
ZX8301 (the chip to the right of the large 
cpu chip) fixed the display, and the F1/F2 
screen appeared, but keying F1 had no 
effect. You can make a fair bet that this will 
happen whenever the QL is opened up, 
the cause being disturbance of the ribbon 
connectors to the keyboard. They don't 
make the best connections, and kink eas- 
ily when re-inserted. Kinking may break a 
lead. If a bit at the connector end has been 
bent over, cut it off cleanly with scissors 
and re-insert it. As an extra precaution, 
spray the terminals inside the connectors 
with contact spray — that is, a cleaner 
designed specially for electrical contacts, 
not any old spray. 

When you buy a replacement for a 
ZX8301 chip, it may come labelled 
CLA2310, which is alright; however, 
sometimes a particular ZX/CLA chip is 
unhappy working with the 68008 cpu chip 
— it might be necessary to do some chip 
matching. As to what causes 8301 chips to 
blow, there are a few theories, the most 
common being that the unbuffered con- 
nection between the chip and the display 


unit allows excess voltages from the latter 
to overload the chip. In the early days of 
the QL, we were warned by peripheral 
equipment manufacturers to switch on 
heavy-current units such as displays and 
printers before the QL was switched on, 
and to switch off the QL before the other 
units. This procedure ensures that the QL 
is ‘dead’ whenever excess voltage is fed to 
interconnecting wires. My own procedure 
for nearly seven years has been to have all 
units connected to the same multi-way 
extension socket and switch them all on 
and off together. That has not given any 
problems, but | must point out that my 
system has a variety of suppression de- 
vices fitted and there can, anyway, be no 
assurance that simultaneous switching will 
be satisfactory with any combination of 
units. The speed with which some units 
‘come alive’ could be much greater than 
for others. One thing you should note, if 
failure of the 8301 has occurred several 
times on your QL(s), is whether or not it 
happened when the system was switched 
on, rather than while it was working. 


Voltage surge 


If you have seen the blank screen only at 
switch on time, there is certainly good 
reason to suspect a voltage surge from a 
peripheral unit as the culprit; don’t forget 
that anything plugged into the 64-way 
expansion port is a peripheral unit — the 
display may not be the problem area. 
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Borrowing is ok, for awhile, but one can't 
expect the owner of a Gold Card to loan it 
out indefinitely; fortunately, I’ve finally got 
my own GC and can investigate what it 
does for the QL, on a day-to-day basis. 
Previous attempts to get a GC and my 
one-third height Mitsubishi 3.5in drives to 
co-operate had been unsuccessful, de- 
spite a variety of settings for the FLP- 
_STEP 5 parameter. Other users had 
advised changing FLP_START instead, 
so that’s what | did with the new GC. It 
didn’t work. Back to FLP_STEP, just in 
case ... It was a good job the check was 
made, because the current GC — identified 
as ‘Gold Card 2’ underneath and with the 
pcb coloured red — seems to get on fine 
with these drives when FLP_STEP is set 
(the default is 3); the FLP_START pa- 
rameter was left unchanged, at the default 
30. 


Combined disks 


Mention was made in the February issue 
of combining ED (extra-high density) or 
HD (high-density) and DD (double-den- 
sity) 3.5 in floppy disk drives with a Gold 
Card interface. The adapter which has to 
be fitted to the GC to enable this has two 
drive connectors, one pointing upwards, 
the other outwards (in the ‘conventional’ 
position). To avoid the necessity for chang- 
ing over drive designation jumpers (the 
ones that identify drives as flp1_, flp2_ 
etc), the straight-out connector is under- 
stood by the QL to connect to flp3_ and 
flp4_. Thatis, although the DD drives were 
previously always flpi_ and flp2_ when 
connected as the only two drives on the 
system (with either Trump Card or Gold 
Card), they have now become flp3_ and 
flp4_, without having to be fiddled with. 
The ED drives are plugged into the up- 
wards pointing connector, and they have 
become flp1_ and flp2_; theirinternal jump- 
ers also are set to flpi_ and flp2_. As 
mentioned above, the FLP_STEP param- 
eter has had to be reset, by a line in the 

] system boot program, but that was solely 
to cure a disagreement between GC and 
DD drives. Otherwise, no fiddling was nec- 
essary, and all fourdrives are working fine. 
One (branded) ED disk failed to format first 
time, but was alright on the next try. At £30 
for 10, these disks are still rather pricey, 
but the value in terms of bytes per penny 
is good. 

There are some warnings given in the 
instructions with the GC and ED drives, 
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and they bear repeating here. If ED drives 
are connected to a Trump Card, they can 
be used only as DD drives (720 KB) and 
the TC has to be fitted with the version 1.34 
or later rom. When using either HD or ED 
disks in DD drives, cover over (with opaque, 
not transparent, tape) the square cutout 
opposite the write-protect cutout. DD, HD 
and ED disks have a write-protect cutout 
and slide in the same location, but HD and 
ED disks have an additional cutout on the 
opposite side (but in slightly different posi- 
tions). By covering up this cutout, you 
should prevent DD drives from failing to 
format the HD or ED disks properly. Don’t 
be fooled by an apparently-correct format 
operation without the cutout taped over; 
my own quick check did show both HD and 
ED disks to format properly in a DD drive, 
and it was possible to copy files to them 
from harddisk, then delete them, but neither 
disk was recognised when put into an ED 
drive. That is, you can do the formats but 
don’t expect compatibility between drive 
types unless the cutout is taped over. 
There may be some incompatibility even 
when the cutouts are taped over; while 
various WCOPY operations between 
drives succeeded on my system, others 
failed with the ‘bad or changed medium’ 
message being displayed, and there was 
no reason to suspect the disks being used. 
It may be advisable to match disks to 
drives —that is, DD disks in DD drives, and 
soon. 


Rom version 


An ED disk formatted in a HD drive 
should give 1.44MB; presumably, the same 
advice — cover the cutout — applies here, 
too. For ED drives to work properly with the 
GC, the rom in the latter must be version 
2.22 or later. Remember that, although the 
GC can provide sub-directories on hard 
and floppy disks, the TC (and other inter- 
faces) cannot deal with sub-directories on 
floppy disks, so don’t switch disks which 
have sub-directories on them to systems 
which don't have a Gold Card. 


Density needed 


My initial reason for wanting ED drives 
was the prospect of being able to load all 
system files from one disk. A single DD 
disk had long since proved too small to 
hold more than the bare necessities, but a 


disk with more than four times the capacity 
would be ample (for a while). A more 
pressing reason presented itself shortly 
before the ED drives arrived; something 
had gone wrong with the 20 MB MS-DOS 
‘partition’ of the hard disk, Conqueror 
couldn't start, and a backup of the hard 
disk was called for as a precaution before 
the partition was reformatted. The space 
taken by Qdos files had risen to over 12 
MB and it would have taken near to twenty 
DD disks to hold the backup copies; the | 
actual number required varies with the 
backup program being used, and the posi- 
tion of files on the hard disk. If the backup 
program attempts to fill each disk, the 
number is kept down but, if it merely copies 
files in sequence, a big file which doesn't 
quite fit the current disk will cause the 
remaining space to be unused. 


Hardback 


Back in the days of PDQL, a copy of 
Chas Dillon’s HardBack was sent for 
review, but had been put on one side for 
obvious reasons; now was a good time to 
try it. The 12.324 MB of files fitted comfort- 
ably onto four ED disks, leaving 456 KB of 
space unused. On the first three disks, 
only 2 KB remained unused, showing that 
the program had done an excellent job of 
filling the disks. As the data transfer rate 
for the ED drives is in the region of 1 
megabyte per second, compared to about 
a quarter of that with the DD drives, the job 
was completed in well under a half hour. 
Subsequent attempts to make back-ups of 
only those files which have changed since 
the full backup have not been successful; 
resolution of that problem will have to wait 
upon some spare time to read the instruc- 
tions again. 

Many micro users will be conscious of 
some slowness in their computer's han- 
dling of certain jobs. The QL is perhaps a 
bit unusual in that it was created with a 
slow word processor program, Quill. Gen- 
erally, handling of text should be relatively 
fast, whereas graphics can be expected to 
be dealt with at a snail's pace. It was 
unfortunate that Psion had to produce 
Quill at a time when they did not have 
anything like a ‘final’ QL available to test it 
on. It seems likely that — given time and 
money ~ they would have completely re- 
written the program. That is history, but 
users have now got the option to replace 
Quill with Perfection, and get both greater 


speed and more facilities, and/or install a 
Gold Card and have all programs run 
faster. 

It really is a pleasure to see things 
happening much faster on the screen 
when a GC is fitted. In my own case, 
arrival of the GC coincided with a very 
frustrating period trying to cope with the 
PC wonder-program Windows, and the 
contrast was marked. Using a WP pro- 
gram under Windows, on a reasonably- 
fast PC, there is frequently enough time 
available to have a cup of coffee - maybe 
a light meal! — while one waits for some 
basic operations to be completed, whereas 
there are no significant pauses using Per- 
fection with the GC on the QL. The latter 
combination looks, and is, fast; the slug- 
gishness of two WP programs tried with 
Windows was such as to make it out of the 
question to use them on a daily basis. On 
top of this, there has been a period of eight 
weeks waiting for the world’s #1 software 
company (you guess the name) to explain 
how to make one of the WP programs 
work at its proper (slow) speed. We gen- 
erally get better service than this on the 
QL. 


Catching up 


QL software and firmware has yet to 
catch up with the hard disk, high-density 
drives and sub-directories. Since adding 
these to my system, there has been a lot 
of aggravation, stemming from commands 
which don't work properly and programs 
which are reluctant to be configured to 
work from hard disk. The wild-card com- 
mands appear to work as and when they 
feel like it; WOEL seems to work, only for 
deleted files to reappear later, sometimes 
after several ‘deletions’, and WSTAT says 
‘not found’ to sub-directory files. Whether 
the problems noted relate to the com- 
mands themselves, to the interface or 
drives, to the use of a device driver to 
make sub-directories more usable, or to 
some other factor, | know not. Re- 
configuring text87 (version 3.00) and 
Professional Publisher has been a pain. 
Conqueror itself was ok, but the partition 
it was using on the hard disk became 
unusable. Can we hope that program- 
mers will start to make provision for hard- 
ware that has been available on QL sys- 
tems since 1990-1991? 

In case you are confused about the 
number of floppy disk drives you can 
connect to your Trump Card or Gold Card, 
note that there are two adapters sold by 
Miracle for increasing the number of drives 
supported. Only two drives could be con- 
nected to earlier TCs, and the standard 
adapter for these cards increases the 
number to four. Later TCs supported four 
drives, so don't need an adapter. The GC 
supports three drives, and the adapter for 
itraises this to four; this same adapter can 


be used on TCs, for the 2-4 conversion. 
There is only slight difference between 
the adapters, but the original one is not 
suitable for the GC; specify your interface 
type when ordering. 


Recognition needed 


Qdos can support eight drives, but the 
interface specification for disk drives does 
not normally permit this number. It is inter- 
esting to read that even the scsi interface, 
which should support many chained de- 
vices (of varying types), does not actually 
make it straightforward — in practice — to 
connect additional disk drives beyond the 
usual two or three. Miracle report that one 


bail 


of the Select lines on the ED drives is used 
for selecting density, thereby reducing the 
possibilities for drive selection. At the time 
of writing, my one QL is happily recognis- 
ing two ED and two DD drives when a 
Gold Card is the interface, but another QL 
recognises only one of each type of drive 
when a Trump Card is the interface. Bear 
in mind that the TC does not support HD 
or ED drives, except when they are used 
with DD-formatted disks. 


Height of confusion 


When referring to character heights in 
picas (one-sixth of an inch, a normal 
measure in the print trade), there is a fair 
chance of the inexperienced user getting 
confused, if he/she actually measures the 
height of printed characters. The normal 
height figures given, forexample, Helvetica 
72-point, refer to the total space taken by 
the characters, including space top and 
bottom, not to the height of the characters 
themselves. A ‘point’ is one-twelfth on a 
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pica. Refer to the illustration on the previ- 
ous page and the point should be clearer; 
there has to be space above and below, to 
avoid characters on successive lines 
touching each other, and a cell height is 
specified to allow for this. The character 
height is appreciably less than the cell 
height. In the case of text 87's Roman 21- 
point fount, the characters are roughly 15 
points high. Additionally, printers do not 
necessarily use the same data for all 
founts of the same name. For example, 
there are a large number of variations of 
the Times fount, and you cannot be sure 
of the character point size for a particular 
printer set, without measuring the printed 
output. Equally, don't expect characters 
of the same nominal point size, but of 
different founts, to be the same height. 
They vary enormously! The typical Times 
and Helvetica sizes used for correspond- 
ence fortunately differ only slightly in 
height; to get the same character height 
you have to use about 10.5 points for 
Times against 10 points for Helvetica. 

The super-large dictionary for Digital 
Precision’s Spelichecker will be supplied 
on two DD disks, rather than on one HD or 
ED disk. To enable this, files have been 
created for each of the alphabetic letters 
and a reconstitution routine has been 
provided to stitch them all together again 
as one dictionary. This routine actually 
has two options — make one complete 
dictionary, or two separate ones, more or 
less equal in size. It does the job quite 
quickly. Incidentally, don’t think develop- 
ment has stopped on Perfection; my 
current version is 3.07. There have not 
been major functional changes in the last 
few versions, so users of earlier versions 
need not get worried about missing 
something. 


Readers’ letters 


If D. Shillam is still patiently waiting for an 
answer to the letter he wrote some time 
ago, now's the time to pay attention. If you 
really don't want to put printer control 
codes into the Quill Printer _dat file, you 
can insert them into documents instead. 
One way to do this is to use the decimal 
code 155, which looks to an Epson-com- 
patible printer like the ESC code which 
prefaces most printer commands. To put 
this into a Quill document, you simply hold 
down the CTRL key and tap the ; key (the 
semi-colon key). On the screen, this ap- 
pears as U— anormal u with a ‘hat’ above 
it. You will almost certainly have to experi- 
ment with this. To avoid conflict with ex- 
isting Translate entries in your Printer 
_dat file, take the disk/cartridge contain- 
ing that file out before printing, to force 
Quill to use its internal default_dat file. To 
make sure the printer isn’t already storing 
instructions which you have forgotten 
about, switch it off and on to reset it. 
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CENE! 


DataDesign and The Painter 
get a remodel 


Progs Van Auwera have up- 
dated two of theirlongstanding 
product range. First off, 
Datadesign has been exten- 
sively revised so that 
programing it via SuperBasic 
is ‘much easier’. The SuperBasic 
interface has been considerably 
simplified; the old interface can 
still be used by those who pre- 


fer itand have invested time in 
it, though. Extra commands 
have been added; MERGE al- 
lows the program to merge files 
almost as fast as it loads them; 
FIND and FILTER are im- 
proved. More information is 
available from Progs Van 
Auwera. 

The Painter has also been up- 


Third time cute 


“Compare these speeds’ say 
Digital Precision about Per- 


fection 3,00 - instant 
navigation, searching ap- 
proximately 100 pages (100K) 
per second, block handling 
about 20 pages per second, on 
a standard QL. ‘Four to five 
times faster still’ with a Gold 
Card. ‘Who needs Perfection?’ 
asks a little man in the corner. 
‘Perhaps you need Perfection’, 


say Digital Precision. Why is 
the little man wearing baggy 
spotted trousers, a funny hat 
and a leaky handbag (or is ita 
bucket of water)? Does he ap- 
preciate cute menus and good 
coding? Who is AT, anyway? 
Perfection 3.00, £79.95, or 
£119.95 with the Spellchecker, 
from Digital Precision, 222 
The Avenue, Chingford, 
London E4 9SE. 


Mouse in MUG 
seen in 
Merseyside 


OL MUG (Merseyside User 
Group) has contacted OL 
World to say that they are 
still flourishing. Formerly a 
Quanta subgroup and still 
affiliated, QL MUG is open 
to all OL users in the area. 
They also design and pro- 


duce (in kit or ready-built 
form, or parts list, and points 
in between) the Merseyside 
Mouse for the QL, which has 
been building its market in 
1991. Contact Mr James at 3 
Barnard Road, Birkenhead, 
L43 1TT. Tel: 051 652 7366. 
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dated. It will work with the 
cursor keys on the Gold Card; 
there are new printer drivers 
for the HP DeskJet and other 
printers which use to HPGL 
graphics language, for both 150 
and 300 dpi print resolutions. 

Current prices of the major 
programs in Belgian francs and 
Sterling are: The Painter 4.04, 


FF 


BEF 1500 (£25); The Clipart BEF 
600 (£10); Qractal BEF 1200 
(£20); Datadesign 2.05 BEF 3000 
(£50). 

For other prices and upgrade 
prices and conditions, contact 
Progs Van Auwera at 
Haachtstraat 92, B-3020 
Veltem, Belgium. Tel: 010 32 
16 488952. 


admission with this voucher 
to one 


ALLFORMATS COMPUTER 
FAIR 


23 February National Motorcycle Museum, M42 J6 
8 March City Hall, Candleriggs, Glasgow 
14 March Horticultural Hall, GreycoatSt., Westminster, 


London 


15 March Brunel Centre, Temple Meads Station, Bristol 
21 March Donington Park, M1 J24 
22 March University Sports Centre, Calverley St., Leeds 


The All Formats Computer Fair is owned 
and organised by Bruce Everiss, PO Box 71, 
CV33 OXS. 


Sole agent for advance tickets and stands: 
JRMH Tel: 0225 868100. Normal entrance 
£4, with this voucher £3. Only one voucher 
per person. No cash value. Valid till end 
March 1992. 


(}PEN WHANNEL 


Open Channel is where you have the 
opportunity to voice your opinions in 
Sinclair QL World. Whether you want to ask 
for help with a technical problem, provide 


somebody with the answer, or just sound off 
about something which bothers you, write 
to: Open Channel, Sinclair OL World, 
116/120 Goswell Road, London EC1V 7QD. 


I always turn to your Note- 
book for up to date information 
and a little light entertainment 
on receiving QL World. Your 
January effort was unusually 
doleful, however. The literary 
quality of the magazine is far 
superior to other journals with 
a technical or specialist con- 
tent. 


In reply to the cryptic remark 
in your penultimate paragraph, 
the top half of page 39 in the 
December issue is a reprint of 
page 46 of the September issue. 
Also, we have too many ‘m’sin 
systematic on the Contents 
page, and on the Noticeboard 
page the paragraph heading C 
COMPILER has its P missing. 
The heading of the article on 
page 36 has ‘questionnaire’ 
misspelt twice with only one 


4qnt 


n. 


However, this gives me an 
excuse to write and wish you 
every success in overcoming 
any difficulties you may have 
in publishing, printing and dis- 
tributing the magazine in these 
difficult times. I am too old to 
learn another language, and 
wish to continue using the QL. 

Wishing you and your staff a 
peaceful and prosperous 1992. 

Douglas D Perry 
Walsall 
W Midlands 


Editor's comment: What a nice 
letter. Christmas passed without 
anybody upending anything over 
anyone, although there were a few 
stern words spoken at home about 
how many days’ work we could fit 
in between 9pm on Thursday and 
4pm on Friday. Just returned from 
a much-needed week's holiday in 
the snow, lam greatly cheered up; 
also by knowing that whatever 
went wrong on January or Febru- 
ary, it can't match December; also 
by this letter. No banana on the 
half-page, though. The first caller 
was Bryan Davies, wanting to 
know if he gets paid again for it. 
We said, not unless he can explain 
how it got there. Then there was 
the conversation about question- 
naire, with the OED being 
produced to prove that you can 
spell it with one ‘n', and various 
proofs on my behalf to demon- 
strate: that's all very well, but I 
asked for two. Words were spoken, 
but not too many, however; the 
setters are just as short of hands 
and eyes as we are. The extra ‘m’ 
in systematic I achieved all by 
myself, without any help; it was 
certainly noticed (too late, as 
usual). The mystery boob, how- 
ever, remains mysterious. 


Iam a Scrabble fan, and pos- 
sessed the version as marketed 
by Leisure Genius for the OL. 


Unfortunately [have corrupted 
my copy, because | neglected 
to remove the cartridge and 
clone from the machine before 
switch-on. As a result the 
microdrives whirled into ac- 
tion and corrupted the main 
Scrabble cassette on mdv 2. 
To my dismay I find that Lei- 
sure Genius no longer trades, 
and the game is no longer avail- 
able. Since I'm unemployed | 
really enjoyed a late night game 
in preference to watching tv! 
Could you advise me how | 
can obtain this game for the 
QOL? 
Barry Hammett 
Swansea 


Editor's comment: Nobody is list- 
ing this game at the moment, If 
anyone can help, please write to us 
and we will pass the offer on. 


There have been several que- 
ries recently concerning the 
connectors used for the RS232 
ports and Control ports —many 
people seem to think these con- 
nectors are not freely available. 
This is not the case, 

These connectors are pro- 
duced by Bice-Vero Electron- 
ics Ltd, and are sold through 
the STC group of companies. 
They are available in any col- 
ouryoulikeas long asit’s black. 
There are four different types 
available: four way left or right 
handed, and six-way left or 
right handed. The QL uses six- 
way left handed for the Con- 
trol ports and six-way right- 
handed for the RS232 ports. 
The Bicc- Vero partnumbers for 
these plugs are 900-71053C and 
900-71088]. 

A wire-stripping tool is avail- 
able under part number 900- 
71019A and a termination tool 
under part number 900-7 1020B. 


Sinclair/QL World March 1992 


The connectors can be fitted 
without these tools or by using 
tools supplied with PTC tel- 
ephone plugs. 

STC are currently selling 
these plugs at just under seven 
pence each (£0,659 is the price 
quoted, although you may have to 
buy in bulk or have an account to 
take advantage of this price - Edi- 
for.), but if you are not in the 
trade you are probably better 
offcontacting ITT-Cannon who 
now own Bicc-Vero, on 0256 
473171 and asking for your 
nearest public stockist. 

If all else fails, your local tv / 
radio repair shop may be pre- 
pared to order the parts for 
you when ordering their own 
stock, but be prepared to wait, 
and to pay a bit over the odds 
for this type of service. 

| hope this information helps 
the people who are still labori- 
ously filing down telecom 
plugs and those who have not 
yet experienced that delight. 
It’s a pity these connectors 
never caught on in a big way, 
as they are quite good little 
beasts; it seems that only 
Sinclair and British Telecom 
were impressed enough to use 
them in any quantity. 

Terry Griffiths 
Stevenage 
Herts 


lamarelatively new OL user 
living in Greece. I must confess 
that my knowledge of Qdos is 
very limited, but think I know 
the hardware structure of the 
QL well enough to suggest 
some feasible but dramatic 
add-ons, 

Reading QL World every 
month, | often find users com- 
plaining about the screen dis- 
play. Every user would like a 
better and faster display. How- 
ever, any attempt to improve 
the already-existing video cir- 
cuitry on the QL is bound to 
end in misery. 

Thesolution is asecond video 
circuit accompanied by appro- 
priate software drivers. The 
only thing needed is some free 
address space and a company 
to undertake the enterprise. 
Free address space may not 
exist in the normal OLs where 
the 68008 can address up to 1MB 


of memory, but it does in the 
Gold Card expanded QLs;in fact, 
the 68000 can address up to 
16MB,so14MBremains unused. 
Sowe haveaddressspaceenough 
to host an XVGA display. 

But there is no need todesigna 
totally new video circuit. Sup- 
pose we could emulate the basic 
signals of a PC slot (AEN IORD 
MEMRD MEMWR CLK RESET 
data and address bus), and rear- 
range them in the right order, 
then we would be able to fit in 
any PC video display cards 
(which only use the above sig- 
nals). Does that sound difficult? 
It isn’t, and I mean that. By the 
time you read this letter I hope I 
will be using a real PC Hercules 
card on my little 48K Spectrum (1 
dare not touch my QL, nor have 
I the necessary experience yet). 

I think such an emulator 
would be a piece of cake for 
experienced QL hardware peo- 
ple. The only obstacle can think 
of is the absence of an expan- 
sion port on the Gold Card 
(which is essential for free ad- 
dress space), but we shouldn't 
get stuck there. 

Even if we take as a fact that 
there is no easy way to use free 
address space (at least 64KB for 
an EGA display and at least 1 
MB for a Super VGA) on simple 
or Gold Carded QLs, I can think 
of another way to create a per- 
fectdisplay for the QL. This time 
only 256 bytes are required 
which suppose would be easier 
(to control a screen up to 2048 x 
2048 x 256 colours). 

This time the cpu does not see 
directly the video ram, but in- 
stead uses 256 addresses to is- 
sue commands on a graphic 
processor which in its turn ad- 
dresses directly the video ram 
which can be up to eight cpu- 
independent MBs. The graphic 
processor I have in mind is the 
SGS-Thompson TS68483, which 
is the best of the series GPs 
(graphic processors) in my opin- 
ion. 

In such a system the video 
ramis roughly divided into two 
parts, the active video mem and 
the notepad video mem. The 
active video mem is projected 
on the screen. In the notepad 
mem, we store certain shapes 
such as characters, music sym- 
bols and even alien faces; then 
we tell the GP to move the re- 
quired shape from notepad to 
active mem — that’s all. With 
this specific GP, we can issue 
commands to draw lines, arcs, 
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polylines, polyares, filled or 
otherwise, tomove blocks with 
mask or not, and many other 
things. 

Needless to say, all these ac- 
tions require almost no cpu 
time, and are executed at 
speeds that even four 80486s at 
33 MHz cannot achieve (two 
megadots per second). Finally, 
the shapes are stored in the 
notepad mem, not in the usual 
way (the cpu cannot see the 
memory). The cpu issues a 
LOAD command to the GP, 
and then feeds it byte by byte 
the shape which is stored in a 
window originated by the pa- 
rameters of the LOAD com- 
mand. 

Ina similar way, we can save 
a window of active (or other- 
wise) memory from GP to the 
cpu. Anyone looking for some 
detailed information should 
refer to the ST SGS_Thompson 
Graphic Processors Databook. 

Asystem like that would bea 
real solution for cad, simula- 
tors, virtual reality programs, 
etc. and would allow software 
companies to write the best 
programs ever written on a 
home machine. 

1 hope I’ve given someone 
some ideas, I would like to hear 
other people’s opinions. 

Stavros Grigorakakis 
Athens 
Greece 


QLipboard 


[ thought I'd just point out an 
oversight in respect of an item 
in Troubleshooter in November's 
QL World. Under the heading 
Cut and Paste, you describe 
almost verbatim the facilities 
available as part of Simon 
Goodwin's DIY Toolkit pack- 
age QLipboard! This appeared 
in the January and Februa’ 
1991 issues of OL World. It does 
not, of course, provide a DDE 
facility nor cater for the trans- 
fer of graphics but, where text 
is concerned, it is more than 
adequate, being capable of rec- 
ognising different fonts and 
character sizes (although not 
automatically). 

The package is probably best 
obtained from Richard Alex- 
ander at CGH Services if you 
don’t want to typeitin. Itis not 
a product of polished commer- 
cial standing, unsurprisingly. 


Theuser interface is somewhat 
esotericand complex. Also, text 
is clipped and copied line by 
line and not as Bryan suggests 
(and I would like to have seen) 
on a cursor-start/cursor-end 
basis. But in other areas it goes 
much further, with up to ten 
‘pages’ to clip text into and a 
full editor to edit the clipped 
text before it is pasted. With 
possibly a bit more develop- 
ment, Simon could have 
produced a product to rival his 
Speedscreen. 

If you are a Qpac 2 user, then 
a conflict exists with the very 
nature of QLipboard’s opera- 
tions, namely its need to access 
the windows of other tasks. 
This is contrary to the ‘locked’ 
windows concept of Qpac 2, 
thatis, you have to ‘unlock’ the 
windows of those tasks with 
which QLipboard is to be used. 
I have no experience of how 
QLipboard operates with Task- 
master or other multi-tasking 
environments. 

Stephen Mitchell 
Walton-on-Thames 
Surrey 


Appellation 


Re: Missing magazine 
1 apologize for not addressing 
you correctly, but I could not 
make out your name from your 
signature. This reply is to thank 
you for locating a March issue 
of QL World, I am also im- 
pressed by the joviality of your 
letter. It’s good to see people 
happy in their work. 
Brent Hayhoe 
New Barnet 


Editor's comment: It must be the 
raspberry-leaf tea again. In view 
of some recent correspondence 
about computer manuals, it's in- 
teresting to note that much useful 
information about QL World ap- 
pears on the left hand side of the 
first (Contents) page of QL World, 
including our address, the address 
of our subscription agents, cur- 
rent subscription prices, and so 
on. We get a fair number of letters 
asking for this information. My 
name appears with that of many 
other toiling minions at the top 
left, under the appellation ‘Edi- 
tor’, but after a decade of trying to 
convert the public, I now find the 
traditional forms ‘Dear Editor’ or 
‘Dear Sir’ perfectly acceptable. 
You have to bow to demand. 


15 


ave you ever wanted to make 
more use out of Psion Easel 
graphics software than merely 
plotting your monthly income 
and expenditure or tabulating yearly rain- 
fall statistics for the British Isles? 

The following is an Easel application 
which plots biorhythm curves for any 
period, past or future, and requires only 
three formulae to be typed in. It also ex- 
plains some simple mathematics and once 
again demonstrates the impressive power 
of the Psion software. 

Biorhythms are curves showing 
sinusoidal patterns of physical, emotional, 
and intellectual energy on a daily basis, 
and are claimed to be a guide to periods of 
both well-being and stress in all three 
spheres, They arose out of the research of 
Dr. Wilhelm Fliess in Berlin at the begin- 
ning of this century, later supplemented 
by Alfred Telscher, an Austrian professor 
inthe 1920s. Beginning at birth, biorhythms 
oscillate with regular periods of 23, 28, 
and 33 days respectively. In examining 
the curves, it is important not only to note 
the days when they are at their maximum 
or minimum values but also on which 
days they cross from positive to negative 
or vice versa. These are known as critical 
days and are the times when you are most 
likely to be on edge and make mistakes 
and wrong decisions. 


On your cycle 


To know at which part of each cycle you 
currently are, you need to know two things: 
your age in days and how many complete 
cycles have already elapsed. The first can 
be worked out with a calculator, taking 
account of leap years and the fragments of 
years for the current year and the one in 
which you were born. A much simpler, 
and readily available, method is to use the 
days( ) function in Archive or Abacus. Let 
us assume today’s date is 1st July 1991 and 
your birthday is 23rd May 1955, simply 
load Archive and type in: 


print days(“1991/07/01”) - days("1955/ 
05/23”) 


In Abacus, omit the word ‘print’. Pressing 
Enter gives the result 13,188 days. It is 
essential to include both your birth date 
and the target date, so add 1 to the above 
result to give 13,189 days. You could also 
use SuperBasic, but only if you were born 
after 1st January 1961, since SuperBasic’s 
DATE function only returns correct values 
for dates after this. For example, if your 
birth date is 29th February 1968 enter the 
following short program: 


100 SDATE 1991,7,1,0,0,0 : today=DATE 
110 SDATE 1968,2,29,0,0,0 : birthdate= 
DATE 

120 PRINT (today - birthdate)/86400 + 1 
130 SDATE 1991,7,1,0,0,0 :rem reset the 
clock to whatever is the correct time 


If you have Minerva then you can enter the 
following directly: 


print (DATE(1991,7,1,0,0,0) - 
DATE(1968,2,29,0,0,0))/86400 + 1 


where the value in seconds returned by 
the DATE function is divided by 86400 to 
convert it to days and 1 added as ex- 
plained above to give the result 8,524 days. 

We now have all the information we 
need to construct the biorhythm curves in 
Easel. The QL User Guide tells us that a sine 
wave can be drawn in Easel by using the 
formula: 


sinewave = sin(2*pi( )*(cell-1)/(cellmax- 
1) 


where ‘cell’ is the name of a set of figures 
always in Easel which has the value of the 
cell number eg its value at Jan is 1, at Feb 
is 2 and so on. Cellmax is a reserved word 
with a value equal to the number of cells 
currently displayed on the screen, and so 
is useful for scaling expressions along the 
label axis. Thus the above formula will 
draw one cycle of a sine wave irrespective 
of the number of cells on the screen. A 
point to remember is that if you increase 
the number of cells after the sine wave is 
drawn, by pressing the TAB key to move 
the cursor off the right-hand edge of the 
screen, Easel will not extend the curve into 
the new area of the screen. You need to 
type the formula in again to do this. 

Thereis a problem in that we really want 
to have three biorhythm sine waves, with 
their different periods, on the screen si- 
multaneously, and so we cannot use 
cellmax. The sine function, like all the 
trigonometric functions, is periodic and 
repeats after 360 degrees or 2 radians. So 
the formula: 


PSION 
WAVES 


Nigel Bates takes a headlong plunge into 
biorhythms through the medium of Psion 
Easel - can it see into the future? 


Physical-sin(2*pi( )*cell/23) 


will draw a sine curve, representing your 
physical biorhythm, with the correct pe- 
riod. If we take the first cell of the graph to 
be today’s date, then, as it stands, the 
curve drawn by the above formula will be 
your correct physical biorhythm only if 
your age (as returned by the days() func- 
tion described above) is an exact multiple 
of 23 days. It would be tedious to have to 
wait for the next such coincidence every 
time you wanted to getan up-to-date chart. 
To get the right proportion of the bio- 
rhythm on the screen, we need to intro- 
duce the concept of phase. This is the 
amount by which the sine wave is shifted 
along the axis from the origin according to 
the number of days you are into your 
current cycle. To find this out we need 
what is known in the mathematics as an 
MOD function which gives the remainder 
when we carry out a division of one 
number by another. For example, 13189 
MOD 23 is 10, ie 13189/23 is 573 remain- 
der 10. 


Substitute MOD 


Unfortunately the Psion programs do 
not possess either DIV or MOD functions, 
but we can construct a substitute with the 
help of the int() function which returns 
the integer part of a real number. Thus 
int(13189/23), equivalent to 13189 DIV 23, 
gives the result 573. The remainder is found 
by subtracting 573 times the period 23 
from 13189: 


13189 MOD 23 


is equivalent to 


13189 - 23*int(13189/23) 
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which gives the result 10. Now we can Intellectual=sin(2*pi()*(cell + (13189- 
include this phase shift in our formula to 33*int(13189/33)))/33) 
get the correct biorhythm curve on any 


date: Barchart 
Physical=sin(2*pi( )*(cell + (13189- If you type these formulae straight in 
23*int(13189/23)))/23) after loading Easel, you will get a bar- 


chart labelled January to December which 
Similarly, the emotional and intellectual is both unsatisfactory to the eye and po- 
curves are given by the formulae: tentially misleading since Easel’s built-in 

month labels have nothing to do with the 
Emotional=sin(2*piQ*(cell + (13189- period to which the curves are meant to 
28*int(13189 /28))) /28) refer. Remember that our formulae gen- 
erate the curves for each day starting with 
today’s date. 
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BIORHYTHMS 


To improve the 
appearance, start by 
changing some of 
Easel’s default val- 
ues before typing in 
the formulae. First, 
change the format 
from bar-chart to 
line graph by press- 
ing F3 CF3 ENTER 
to C(hange) to 
F(ormat) 3 and then | 
press CGO ENTER 
to C(hange) the 
G(raph) paper back 
to format 0 (easiest 
for viewing). Re- 
move the labels by 
pressing E Lto E(dit) 
the L(abels) and 
then press F4 twelve 
times to remove 
them one by one. 
This will have the 
added effect of in- 
creasing the number 
of cells visible when 
F4 pressed is for the 
twelfth time. When 
Easel has finished 
redrawing the 
screen, press F4a further eight times to get 
30 cells (days) showing. Alternatively, in 
data-entry rather than command mode, | 
press TAB to move the cursor across the 
screen to get the extra cells. Press ESC to 
return to command mode to edit other 
items such as axis and graph titles or just 
press ESC again to return to data-entry 
mode. 

Now enter the formulae given above for 
the Physical, Emotional and Intellectual 
biorhythm curves. After entering each one, 
press F3 C L (number) ENTER ESC to 
C(hange) the L(ine) colour to whatever 
number you wish and return to data-entry 
mode. I find 0 for white, 1 for green, and 2 
for red are easy to distinguish. Then press 
F3 V ENTER ENTER to V(iew) all Figures 
with format 3. Enter F3 K ENTER to K(ill) 
Easel’s ready-made ‘figures’ data set. 

You can then tidy up the graph further 
by editing the text and axis-labels and re- 
positioning the key, or removing it if you 
prefer, as shown in the figure. The in- 
structions for carrying out these operations 
are described in the QL User Guide. You 
could make a screendump of the graph to 
a dot-matrix printer from within Easel by 
pressing F3 P P. You could update it 
monthly by typing the formulae again 
with your new age in days. Also, by in- 
creasing the number of cells visible on 
screen, you could get three months’ worth 
of data on one graph. 

If, before now, you've experienced days 
when things seemed to go right for you 
and also the occasional ‘off’ day when 
everything ended in disaster, you may 
find the answer in your daily biorhythm 
chart: it might be worth having a look! 
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QTop 1.11 with additions 


Cowo Electronic have released 
version 1.11 of their front end 
for the QL and Thor, QTop. 
Features listed by Cowo in- 
cludea completely revised Boot 
program with simpler user 
configuration, including F5 
startup for the Amiga with the 
QL Emulator; two new Thor 
XVI Emulators for the Miracle 
Gold Card, one for pre-JS roms 
and one for JS and later roms 
including Minerva; QJump’‘s 


RAMPRT ramdisk replaces the 
CST Ramdrive (which is still 
included for users of standard 
128 K QLs); the latest English 
version of the QJump extended 
Pointer Environment, includ- 
ing a special version for Thor 
XVl users, supporting the Thor 
mouse; configurable programs 
menu via Config Bas; and but- 
ton and hotkey demo files. 
Other parts of the program 
have been updated to make 


Menus from 
Merz 


Jochen Merz has told QI 
World that his program Menu 
Extension 3 is now in produc- 
tion, with improved file-select 
allowing display of multi- 
column files and 
subdirectories, and acomplete 
tree. A new feature, Directory- 
select, allows directories to be 
constructed exactly as found 
in Qpac 2 or the File-select 
menus, and gives direct ac- 
cess to any device, 
subdirectory and the pre-de- 
fined directories. List-selectis 
also new, replacing the old 
select-from-list and allowing 
standard arrays to be passed 
to it. 

For all OL-Emulator users 
with aninbuiltMegaST clock, 
the bug which adds an extra 
day to the year every year has 
been corrected. You can get a 
free update by returning your 


QL BOOT disk with two 
International Reply Coupons 
toJochen, orjustputan ADATE 
-86400 in your BOOT file. 

The flp/ram Level 2 eproms 
for the Trump Card and 
SuperQ Board now both con- 
tain the ATR device which 
allows direct access to Atari/ 
IBM formatted disks, due to 
special demand. The new 
versions have risen in price to 
£18, but, says Merz, that is a 
more than fair price for what 
you get. Please specify Trump 
Card or SuperQ Board when 
ordering — the new eproms 
are different. 

Orders and enquiries to 
Jochen Merz Software, Im 
stillen Winkel 12, 4100 
Duisburg 11, West Germany. 
Jochen can now acceptall ma- 
jor payment cards, including 
American Express. 


the most of ExeQtor and the 
Gold Card; plain text error 
messages are included; QTop- 
Desk can be started directly via 
a Button. DIRECTORY and the 
KEYBOARD menu have been 
revised and rewritten respec- 
tively; programs in MYPROGS 
can havea program path each; 
VIEW SCR inthe TOOLS menu 
has a menu for action routines, 
and there are other upgrades 
of detail. 


The UK price for the new ver- 
sion is £29.50, disk only. 
Registered QTop users should 
contact Cowo about updates. 
Cowo Electronic, Munster- 
strasse 4, CH-6210 Sursee. Tel: 
(Switzerland) 045 211478, 


New England Group 
in 
expansion 


The New England Sinclair QL 
Users Group (NESQLUG) has 
expanded its membership to 
35, and its group software li- 
brary very considerably by 
acquisition of the German IFE 
public domain/user group 
disks. The IFE list comprises 
some 90 disks and 1230 pro- 
grams from users all over the 
world, in many languages 
(many PD programs on the IFE 
listappear in other PD libraries 
and sources). Hugh Howie 
writes about setting up a Gold 
Card across the Great Pond, 
and the prompt and accurate 
help he received from Miracle 
Systems with his queries. An- 
other report also points out that 
the QL’s notorious membrane 
keyboard is ideal for use in a 
pottery or other industrial 
situation — it’s not sensitive to 
dust and soot, and has no fan 
to suck dirt into the works. 


Membership of NESOLUG is 
$US10,students$US5, overseas 
(air mail) members $US15. 
Contact the treasurer and 
membership secretary, Sherm 
Waterman, 40 Eileen Street, 
Yarmouth Port, MA 02675, 
USA. 


Euro Fair 


Following a1991 with no 
European Microfair at the 
Eurovolleycentre, Brussels, 
‘owing to circumstances’, 
QL club BruQsL are now 
planning the European 
Microfair 1992. Registration 
for firms and clubs is now 
open. Formore information, 
please write, phone or fax 
Jaques Tasset, Aarlenstraat 
104, B-1040, Brussels, Bel- 
gium. Tel. (local) 02/2331222, 
fax 02/2331220 
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INFORMATION 
Program: PCB_CAD 2.01 
Supplier: Lear Data Systems 
Price: £69.95 


CB_CADisaprogramspecifically 

designed to create two- 

dimensional drawings for use in 

the making of printed circuit boards. 

[It can also be used as a general purpose 

drafting package, and I have used this facil- 

ity to prepare the component layout draw- 

ings for most of the pcbs [ have designed 
and made. 

On receipt, the disk contains eighteen 
files. One of these is the instruction manual, 
in the form of a Quill document file. This is 
logically formatted, ranging from the con- 
tents page at the front, to two appendix 
sections at the end, and is easy to follow. It 
contains all the information necessary to 
operate the program successfully. Addi- 
tionally, the appendix contains a list of all 
the components available in the on-line 
library file, as well as details of the art file 
data format. The art file is the file that you 
create and, when saved to disk, it is auto- 
matically given the extension _art. The size 
of this file can be displayed at any time. 

The instruction manual rightly advises 
that, as this file contains your precious art 
work, you should keep backing it up at 
regular intervals as you proceed. The other 
files on the disk are the Boot and Backup 
programs, a configuration program, vari- 
ous printer drivers including Shinwa CPT- 
80, Panasonic KX-P1124, Canon PW1080A 
and PW-1156A and the Epson LX-800, a 
public domain PostScript conversion pro- 
gram supplied free of charge, along witha 
toolkit extensions program required for the 
correct operation of the suite. In addition, I 
understand that later versions of the pro- 
gram also contain conversion programs for 
Gerber and Wanatabe formats. The on-line 
library and Help files, and finally a couple 
of demonstration _art files in the form of a 
pcb design and a circuit diagram complete 
the list. 

Artwork is created by manipulating the 
elements of the drawing — tracks, pads, 
blocks or text — using the cursor keys or, as 
in my case, a Mouse. As one of the 16 
overlaid layers can be worked on at any 
time, each layer is allocated a different col- 
our—seven of these being active at any one 


The pcb diagrams are printed here slightly 
larger than life-size. PCB_CAD originates 
them to full technical tolerances. 
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PCB _ 


CAD 


Ray Dawson has been using Lear Data Systems’ 
package to create printed circuit board designs. 


time. The colour of each layer may be al- 
tered using the Mask command and, as the 
background colour is black, any layer may 
be hidden from view by changing it to 
black. However, when this is done, it disa- 
bles the Find command. This command 
enables any element to be ‘picked up’ and 
edited. As this is done, the element changes 
colour to white and cyan, defining the start 
and finish, or head and tail of the element. 


Library elements 


If the element happens to be a library 
item, its library identity number can also be 
established at this stage using the Identity 
command. Until I acquired a colour moni- 
tor, I found the program very difficult to 
use when trying to identify more than one 
overlaid layer, or the colour change when 
editing. This is one of the very few criti- 
cisms I can level at a very professional 
program, but I must emphasise that a col- 
our monitor is essential if you are contem- 
plating any really serious multi-layer work. 
As an area at the bottom of the screen is 
already used to display such things as the 
current cursor co-ordinates and the grid 
step setting, I feel that it would be helpful to 
see the current active layer number dis- 
played as well, to assist users with mono- 
chrome monitors. 


Figure one: a 

pcb layout as 
roduced on 
CB_CAD 

(track side). 


Completed or unfinished art work can be 
stored on disk for later processing, using the 
Save and Load options, while the library file 
provides a source of the more commonly 
used elements, such as dual inline IC bases. 
This file can be extended to contain up to a 
maximum of32000items. Thelatest version of 
the program, I am told, has simplified this 
considerably. In version 2.01 itis necessary to 
exit the program in order toadd to the library, 
but I understand that later versions permit 
additions to be made without re-booting. 

Outputcanbeeitheras HP-GL (plotter) files 
for disk storage or serial output, or as a 
PostScript file for output to a laser printer. In | 
addition, as previously mentioned, later ver- 
sions of the program contain conversion pro- 
grams toGerber and Wanatabe formatso that 
all possible graphics reproduction devices are 
now catered for. 

With tongue somewhat in cheek, I have to 
admit that I have not yet fully explored the 
whole drawing area of 32 by 32 inches, or the 
claimed resolution of 0.001 inch, but I can 
verify that the resolution is well within the 
limits needed to produce very acceptable 
quality boards, even when using the latest 
surface-mount technology. 

The hardware requirements are eithera QL 
or Thor with a minimum 512K expansion | 
memory, a monochrome or colour monitor 
(bearing in mind my previous comments), 
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and an Epsoncompatible dot-matrix printer, 
flatbed plotter, photoplotter or laser printer. 
I use a Brother M1009 printer, and have got 
perfectly acceptable results using the Epson 
LX-800 printer driver supplied, and the 
methods explained later. 


Manual advice 


The manual advises that ‘the best way to 
learn is to sitdown in front of the screen and 
try out the commands’. This is very good 
advice indeed, and it is by this method that 
I have become acceptably proficient in its 
use. At any time the Fl key will always 
display the list of commands available at 
that point in the program, and I have found 
this on-line help invaluable. At switch-on it 
is immediately evident that, although the 
program is not copy protected, some at- 
| tempt has been made to personalise your 
copy by the inclusion of your name at the 
top of the start-up screen —a nice touch, and 
one which engenders a sense of ownership 
while at the same time ensuring that the 
copy is unique to the purchaser. 

Initially, the Normal Edit Mode is in op- 
eration, displaying a cursor in the form of a 
cross. The x,y co-ordinates of this are dis- 
played at the bottom of the screen —at 0,0 to 
start with — and these are dynamically up- 
dated as the cursor is moved about the 
screen, the distance moved with each key 
press depending on the selected Grid incre- 
ment setting. At any time, the cursor may 
be positioned centrally on the screen by use 
of the space bar, or the current cursor po- 
sition redefined as the 0,0 co-ordinates by 
invoking the Relocate command. The Grid 
increment setting is adjustable in eight pre- 
programmed steps, ranging from one 
thousandth of an inch to one inch, the inter- 
mediate steps being at 5,10, 20, 25, 100 and 
200 thou. A grid marker in the form ofa trail 
of blue dots may be toggled on and off with 
the F3 key at any time. 


Tracks and pads 


Tracks, pads, blocks and text can be ma- 
nipulated in size and, in the case of the 
pads, shape as well—either square or round 
- can be selected. The sizes range from 50 
thou. to 260 thou. in sixteen intermediate 
steps. The inclusion of a ‘bomb-sight’ board 
maker, in the form of a cross within a 200 
thou. diameter circle, completes the pad 
library. Remember that each element has 
start and finish positions designated as the 
head and tail. During editing, these desig- 
nations may be exchanged, or the cursor 
moved from one end to the other by the use 
of a single key stroke, removing the need 
for a lot of cursor manipulation. The Kill 
command removes the elementcompletely, 
while Delete removes just that part of the 
element to which the cursor is currently 
attached, leaving the rest unchanged. 
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SOFTWARE FILE 


Figure two: How PCB_CAD lays out components for use on the board. 


Track thicknesses can be from varied, in5 
thou. increments from a minimum of 5 
thou. up to 315 thou. These are designated 
Track 1 to Track 63. In addition there is a 
Track 0 with a width of 2 thou., and I found 
this especially useful in the preparation of 
circuit diagrams and general drawings. 

Blocks are areas of the board defined by 
the use of the cursor keys after selecting the 
Block editmode. These areas represent solid 
blocks of copper on the finished board, and 
are invaluable for drawing earth-planes 
around other circuit areas. 

Text is also fully programmable in size 
and shape and is a very attractive 
‘draughtsman’-style typeface. Nearly all 
operations are performed by a single key 
stroke (sometimes with the addition of the 
Ctrl key) and this makesa very user friendly 
environment. The initial letter of its name is 
usually sufficient to execute the desired 
command, but you will have to get your 
own copy of the program to find out how 
conflicting words like Library and Layer 
have been dealt with. 

If library components are to be edited, 
there is a Library Unlock command to en- 
able this to be done, otherwise a library 
item, even though it is individual elements 
may be physically separate, will behave as 
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a unit. In addition to editing individual 
elements, Global edits may also be per- 
formed, manipulating whole areas. Because 
this isa very powerful command, an Undo 
command has been included though care is 
still needed — so be warned. It is worthy of 
note at this point that track widths and also 
pad sizes may be globally changed, but care 
is needed here, as some changes may be 
irreversable by global means, and may leave 
you having to do individual element edits 
to achieve the desired result. Facilities to 
copy (or duplicate) areas are especially use- 
ful when preparing drawings of memory 
planes or similar repetitive designs. 


Rubber-banding 


In the Element edit mode components 
brought from the library, or individually 
created, may have their terminals inter- 
connected using tracks rubber-banded from 
point to point. I have found that it is best to 
use right-angled tracks wherever possible, 
as the use of the sloping tracks does tend to 
produce jagged lines on my dot-matrix 
printer. However, if you possessa plotter or 
other more advanced means of reproduc- 
tion, then no such restriction need apply. 

Individual elements can be modified, if 


Figure three: One side of a double-sided pcb from the sample file. 


desired, or the element moved around the 
drawing area as an entity. Alternatively, a 
whole area can beselected for modification 
or positioning, by entering the Area for- 
matting mode. Rotation of the whole, or 
part, can be made clockwise or anti-clock- 
wise, or on either X or Y axis. The axis or 
origin of the rotation depends on the cur- 
sor position when the command is ex- 
ecuted. 

In preparing a drawing I have found it 
best to design the whole layout on graph 
paper first. If a graticule spacing of one 
tenth of an inch is used, it is then very easy 
to translate this to the screen, with a grid 
setting of 100, as nearly all electronic com- 
ponents can be made to fit on a one-tenth 
inch matrix. Have the components to hand 
and measure them as you go. When the 
design is complete, sit down and carefully 
transfer it to the screen. On completion, do 
a draft print. Look carefully at the joints 
between tracks and pads. By experience I 
have found that it is best to use the highest 
possible scale magnification when joining 
tracks to pads, to ensure that they connect, 
but do not extend into the centre region of 
the pad. 


Scale factors 

Seale factors are controlled by the nu- 
meric keys 1 to 8 for the selection of a 
particularmagnification. Alternatively, the 
plus and minus keys allow single-step 
magnification changes up or down, Should 
the track extend too far into the pad it will 
print as a solid block. Leaving a trace of 
white in the centre of the pad helps to locate 
thedrill when itcomes to drilling the etched 
board later in the process. 

By way of example, Dr. Paul Stewart 
G7EAH recently published a design for an 
audio notch filter. Amongst others, I have 
produced a printed circuit board based on 
this design, using PCB_CAD, and copies of 
the board have been used successfully by 
members of our local amateur radio soci- 
ety in Stockport. The full size print of the 
board design is shown in figure one. 


To make the printed circuit board, the 
art-work was first printed using the mirror 
image, that is, first rotated through either 
the X or Y axis and printed using a times 
two scale factor selected from the printer- 
driver options screen. Various parameters 
are available for the choice of output. By 
selecting a magnification of two and alsoa 
graphics density of two, the printer pro- 
duces an image with each line double 
printed, which, with a fairly new ribbon, 
produces a reasonably dense image. 

I have found that two passes is the opti- 
mum. Increasing this only introduces 
smudging, and a single pass is a bit too grey 
to get the required contrast. Always use a 
good quality copying paper of about 80gm/ 
m with a matt finish, as this tends to absorb 
the ink without bleeding. When duplicated 
on a copying machine at the local office 
supplies shop on to acetate film at a 50% 
reduction, this produces a positive image 
when viewed through the film. This not only 
produces a very accurately dimensioned im- 
age, but also has the effect of doubling the 
density and so far has proved highly success- 
fulon every board I have made. Incidentally, 
the idea of duplicating the mirror image is to 
get the ink on to the side of the acetate which 
is going to be in contact with the photo- 
sensitised surface of the printed circuitboard, 
when it is exposed in the UV light box. This 
avoids any possibility of the light rays dif- 
fusing when they pass through the acetate 
before reaching the board — think about it, 
and you'll see what I mean. This program, 
when used in any of the normally accepted 
ways, is capable of producing pebs whichare 
notonly dimensionally correctbutof the very 
highest quality. Figure twoillustratesthe way 
the program was used to help in the placing 
ofcomponentsonthefinished pcb. PCB_CAD 
does not do automatic routing, neither does 
any other program I have seen at the price, 
but provided one is able and willing to do the 
basic work, it is in the highest traditions of 
programming. Much thoughtand effort has 
gone into its design with the user in mind. 
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The demonstration designs included on 
the program disk speak for themselves. In 
the interests of space these illustrations 
have been somewhat reduced in size. Fig- 
ure three shows just one side of a double- 
sided board design from the Example_art 
filesupplied with the program. Figure four 
showsthecomponentlayoutforthisdesign. 
The whole file consists of four overlaid 
layers. Layer 4 has been used for the top 
side of the board with all it is interconnec- 
tions and necessary text; Layer 2 has been 
used for the component layout diagram; 
Layer 1 contains the bottom side connec- 
tions, while Layer 5 has been used for all 
pads and IC connections, and is printed in 
combination with Layer 4 and Layer 1 to 
produce the completed designs for the top 
and bottom sides respectively. 


Dodge duplication 


As the pads and IC connections on Layer 
5 are common to both sides of the board, a 
lot of unnecessary duplication has been 
avoided by using this method. These lay- 
ers have to be printed out carefully, either 
independently or in combination, and ei- 
ther ‘as seen’ or in mirror image in order to 
achieve the desired end result. This is one 
of the main strengths of the program and 
enables absolute registration to be main- 
tained between layers atall timesincluding 
‘vias’ from one layer to another. It will be 
seen that the sloping tracks have not repro- 
duced very well with my printer, but with 
aboard of this complexity a trip to the local 
reprography shop or agency would be 
worthwhile for them to produce the fin- 
ished art-work using your HP-GL (orother) 
file on more sophisticated equipment. 

I feel that with this program, Lear Data 
Systems have established themselves as a 
major contributor to the QL software scene 
and are to be congratulated on their 
achievement. Not only does the program 
perform magnificently, but the price is also 
very realistic considering its complexity. 


Figure four: 
The 
components 
laid out for 
the sample 
board. 
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Simon Goodwin checks out 
the seven-disk C68 
programming public 
domain C-system. 


he C68 programming system is 

an important QL release. It is 

comprehensive, and it is free. It 

spans seven disks, including 
source code so that you can customise 
and re-compile almost the entire system. 
The 1992 version 2 is reputedly bigger 
still, and even better. 

This article is based on several weeks’ 
experience of C68 version 1.05, plus news 
of the update. C68 is complete, conform- 
ing to the loose K&R standard and ap- 
proaching the latest ANSI C standard. 
Pre-written libraries support all Qdos traps, 
and the many standard C functions. 

You can use the C68 to write fast, pow- 
erful QL-specific programs, or change li- 
braries to get portable code using ‘glass 
teletype’ windows, that you can re-com- 
pile on any other micro with a C compiler, 
from PC, ST, Mac, and Amiga to Sun, 
Next and (D)RS work stations and beyond. 

The documentation includes about 150 
A4 pages in 20 Quill DOC files, plus a 
compressed 200K language tutorial. The 
preset document page length may be 64 
or 66 lines, and needs adjusting for fanfold 
A4 paper. In Quill or Xchange type F3 DP, 
then 70 or the length of your pages. 

C68users require aQLwithQJump's Toolkit 
2, at least 384K of ram and one or more 720K 
disk drives. Extra space is handy, but not 
essential unless you want to re-compile eve- 
rything, unlike most MS— DOS C compilers, 
which are useless without a hard disk. 


Before C 


The precursor to C was BCPL (Basic 
Combined Programming Language) in- 
vented by Martin Richards at Cambridge 
University. BCPL was used to implement 
the Tripos operating system that spawned 
AmigaDos. BCPL is a simple language, 
with only one data-type, the word, making 
compilers easy to write and convert. It was 
the first compiled language implemented 
on the QL by Metacomco founder Tim 
King, and powered 1984 releases like QL 
Assembler, later renamed Assembler for 
the QL at the insistence of Sinclair's Intel- 
lectual Property department. QL BOCPL 
generates slow double-offset 32 bit in- 
structions and was soon eclipsed by more 
flexible compilers. 

The C story began in 1970 when Ken 
Thompson, working at Bell Labs, USA 
wrote a compiler for a variant of BCPL, 
Known as B, as part of the development of 
the operating system Unix. 

B begat C, designed by Dennis Ritchie 
and loosely defined in the book The C 
Programming Language by Kernighan and 
Ritchie, and refined in P J Plauger’s 
Standard C. Like Tripos, but unlike most 
earlier systems, Unix is largely written in 


a high-level language. For more than a 
decade Unix and C have been held up as 
the systems of the future. 

The C compiler allows large, compli- 
cated programs to be written piecemeal, 
while permitting low-level bit-twiddling op- 
erations that might otherwise need as- 
sembler code. C is much more portable 
than assembler, as one ‘source’ file can be 
compiled into ‘object code’ for any proc- 
essor with a full C compiler. Unix versions 
proliferated in the 80's, but are coming 
together again now, after 20 years of de- 
velopment. Every Unix system consists of 
thousands of little C routines working to- 
gether. Many fine, well-supported C pro- 
grams are in the Public Domain, thanks to 
their origins in the educational promotion 
of Unix. 

The first QL programs were written in C; 
Psion used a cross-compiler from their 
VAX 11-780 minicomputer. Later Quill et 
al were re-written in assembly code, shed- 
ding bugs, improving speed and reducing 
program size for Version 2. 

In1990PDQLadvertisedasuperiorC system 
based on the later ST version of Lattice C with 
new libraries, but this was never released. 
Many of the features of PDQC, such as the 
linker and libraries, wound up in C68, along 
with other later developments. 

| shall illustrate that compiled C pro- 
grams are larger and slower than hand- 
crafted machine code to do the same job, 
but easier to maintain across many sys- 
tems. C68 is superior to BCPL or earlier 
QLC compilers, and generates suprisingly 
efficient code, if you tell it the right things. 

The C language translator is usually split 
into four tasks: pre-processor, parser, as- 
sembler and linker. Like Unix systems, 
C68 has a control program, CC, which 
calls the others as required. 


Task and data 


Version 1 of C68 stores tasks in two parts 
of the transient program area, like Quill. 
One holds the active task code, and the 
other is a data area. The amount of stack 
and heap memory available as a program 
runs is determined by a parameter option 
when it is loaded: 


EX FLP1_CPIO;"%200 =50” 


The % prefixes the heap requirement 
(200K) and = marks the stack limit, both in 
kilobytes. The parameter string may in- 
clude file names or other options up to 32K 


in length, and channels and pipes may 
also be passed to a task. The default is 8K 
of heap space, 2K for the stack of local 
variables and parameters, and 4K foreach 
pipe. 

The new C68 Version 2 can allocate 
stack and heap space dynamically from 
the common heap. C68 tasks are not re- 
entrant, so you need one copy of the code 
for each task you run, but a shareable 
library is promised. 

All but the tiniest C programs are usually 
written as several files, later linked into 
one task. This reduces the amount of re- 
compilation that is needed after changes 
to the source, and avoids the temptation to 
re-invent the wheel. The Make utility reads 
file dates to determine when files have 
changed. To work properly this needs the 
extended dates supported by Miracle’s 
hard disk, Gold Card and the ST/QL emu- 
lator. 

The pre-processor CPP reads source 
and strips out comments, replaces names 
with constant values and selects condi- 
tional code. The header file NICE_H in- 
cludes CPP definitions to replace C brack- 
ets with meaningful words like WHILE, 
REPEAT and ENDIF, but sadly few pro- 
grammers use it. Listing one shows the 
format of a typical C68 library function, 
STRTOL, which scans text for a number 
and returns a corresponding binary value. 

The function has three parameters: 
NPTR, the address of the text in memory, 
ENDPTR, returned with the address of the 
last character scanned, and BASE, the 
number base from 2 (binary) to 36, using 
digits and letters A-Z. If BASE is initially 0, 
the actual base is determined from the 
text: a leading zero signifies octal, base 8, 
while 0x and OX mark the start of hexa- 
decimal values. 

Lines starting with a hash are processed 
by CPP. It replaces the first line #IN- 
CLUDE <CTYPE.H> with the text of the 
file CTYPE.H, which further #INCLUDEs 
the three-line file TYPES_H, which calls 
up SYS_TYPES _H. These define con- 
stants and macros for later use. 

STRTOL accumulates a 32 bit ‘long’ inte- 
ger value, but the 68000 cannot directly 
multiply two 32 bit numbers, as | explained 
in DIT Toolkit, August 1991. TEN MUL 
and _BASEMUL are macro definitions 
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* CéB-generated assembler output 

* Annotations by Simon N Goodwin 

atext 

-even 

strtol: 

link ab, #-19 Parameters 

movem.1 d3/d4/d5/d6/d7/a2/a3,—-—ta7) 

move.1 8lad),a2 Fetch NPTR 

mave.1 12(ad),a3 Fetch ENDFTR 

move.l 16(a6),d3 Fetch BASE 
#0,d5 RESULT = @ 
#O,ds NEGATIVE = @ 

WHILE 

ae 
(a2) ,d@ 
d3,d4 
L2 “> if null 
da ISSPACE (C) 
d4,d@ 
d@,ad 
#1,a8 
#_ctype, a@ 
(a@) , da 
#6,da Test SPACE 
L2 —> not SPACE 
#1,a2 NPTR++ 
Li End of WHILE 


C = +NPTR 


Make index 
1-254 from C 
Find table 


da 

(a2) ,d@ C = *NPTR 
C =e 74" 
—-> if true 
C == *-* 


—> if false 


C ax *-* 
—-> if false 
1 if true 
Set result 


@® if false 


Set NEGATIVE 
NPTR++ 


BASE == @ 
—> if false 
BASE = 16 
*NPTR == *8° 
-> if false 
BASE = & 
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which replace constant multiplications with 
additions and << binary shift operations, 
avoiding calls to the slow library routine 
.LMUL. CPP replaces later instances of 
these names with the code they define. 
There are serious but subtle bugs in 
listing one, but these show up rarely as 
most calls from other parts of the system 
let STRTOL infer the number base. These 
particular bugs may be fixed in Version 2, 
but they provide a good example of the 
general strengths and weaknesses of C. 
CPP generates temporary files which 


addq.l1 #i,a2 NPTR++ 
clrew de 
move.b ({4a2),d@ 
move.w dd,d4 
cmp.w #120,d4 C == *»” 
beq Li4 —> if false 
cmp. #88,d4 c == 7x’ 
bne Li2 -> if false 
L114: 

moveq #16,d3 
addq.l1 #1i,a2 
bra Lia 
Lig: ELSE 

cmp.1 #14,d3 BASE == 14 
bne Lis -> if false 
cmp.b #48, (a2) *NFTR == *9” 
bne Lis —> if false 
addg.i #1,a2 NPTR++ 
cmp.b #126, (a2) *#NPTR == ’x” 
bne -> if false 
moveq 1 if true 
bra 
L2@: 
moveqg 
L21: 
move. W 
bne 
cmp.0 == "Kk? 
bne —> Always! 
Lis: 
addq-1 
iiFs 
Lids 3 

Lit: 

Li2: 

subq.w NPTR-— 
L22: WHILE 
addq.1 NPTR++ 
clr.w 
move.b 
move. Ww 
beg —> af null 
eir.l ISDIGIT(C> 
move. w 
move. i 
addq.1 
add.1 


C = *NPTR 


BASE = 16 
NPTR++ 


@ if false 


C=1o0 64 


NPTR++ 


C = *NPTR 


Make C into 

index, 1-256 
#_ctype, a@ Find table 
move.b (a@),da 
and.b #4,49 
beg L24 
clr.1 do 
move.w d4,da 


Test DIGIT 
-> not DIGIT 


Fetch C 


are read by the parser. The parser C68 | 
analyses the pre-processed text and 
translates it into assembly language. C68 
comes with routines to generate 68000 
and Intel 386 code. The libraries assume 
the 68000 or its QL cousin the 68008, and 
no 386 assembler is included. 

The parser comes from Minix, the ‘tiny’ 
Unix system published in book form by 
Prentice-Hall. It generates good code if 
you set the right REGISTER variables and 
four pointers at once. With A6 and A7 
pointing at stacks, this leaves only four 


#48, da 
d8,d7 
L25 


Subtract *@* 
Set DIGIT ; 


EL.SE 
do 
d4,d@ 
d@,-—(a7) 


Fetch C 
Stack it 
ISUPPER(C) 


Make C index 
1-256 

+ Table base 
{a@) , di Extract byte 
#1.di Extract BIT 
L26 —> Not UPPER 
#65,d1 ? 7A’ 

27 


#_ctype, a@ 


#97,d1 2 fa’ 


(a7)+,d6 Unstack C 
di,da = TA? 
#198,da + 16 

da,d7 Set DIGIT 5 


d7 DIGIT < @ 
L3e > negative 
d7 *t DIGIT 
d7,d3 BASE 

L23 if so, BREAK 


#10,d3 BASE == 16 
iat —> otherwise 
d5,da Use _TEN_MUL 
da,da for * 10.b 
ag,da D@ is DS * 4 
d5,d9 D@ is DS * 5 
d#,aa DS = DS * 18 
L32 


#16,d3 BASE == 14 
L33 -—> otherwise 
d5,d@ Prepare << 4 
#4,da D@ = DO * 14 
L34 


“8,43 BASE == 8 
L35 -> otherwise 
d5,da Prepare << 3 
#3,d8 DS = De * B 
L36é 


31 


C68 COMPILER 


dS5,-¢a7) Stack X 

d3,-(¢a7) Stack B 
The hard way 
Tidy stack 
Base 8 done 
Base 14 done 
Base 1% done 
Set RESULT 


Add DIGIT 
End of WHILE 


IF NEGATIVE 
—> if false 
Get RESULT 
Negate value 
Set RESULT 


Fest ENDPTR 
—> if NULL 
Set *ENDPTR 


Compiler 


DA is RESULT 
Restore regs 
(a7) +,03/d4/d5/d&6/d7/a2/ad 
unlk aé Lose params. 
rts Return D@ 
«glebl strtol 


{ho Werld March L852, C bikbreary STRICH source, page 2 Ff } 
#include <ctype-h> 


/* defines to avaeid long muls on a lowly 68k #*/ 

#define TEN _MUL (XxX) CCCKK) << 22 + (KD) << 1) 

#define _BASEMUL(B, XK) \ 
(((B) == 18) 7? TEN _MUL((X)) 5 (40RD == 16) 7 CCX) << 4) 
((¢(B) == 8) PN CCK) << Bd 2 CCB HOCK) >> 


LE HEE EEE FE EE EEE IE JE ETE FETE FE JEJE I JE JE JEJE FE JE IETHER FETE TEE EEE 9 JEJE JE JE HE 16 96 9 
* Routine ta use as base for all atoi, atoal etc routines.* 
* Used by scanf etc. * 
HEE HE RE HEHE FE EME ME HE HE ERE FE TE FEI HEHE HEE HE JE HE JE DE JE EE 96 EE HE HE HE aE a ae EE EE EE tn a te 


long strtol{nptr, endptr, base) 
register unsigned char *nptr3 
register char *#*endptr > 
register int base; 
{ 
register unsigned short cs 
register long result = @L3 
register short negative = Gs 
register short digits 


while ((c = #nptr) && isspace{c)) /* skip leading white space #*/ 
nptr++5 


if (fe = #nptr) == "+" {3 © == *-*) € /* handle signs #*/ 
negative = (c == *-*)5 
nptr++s 

> 


if (base == @) € /* determine base if unknown +#/ 
base = 185 
if (#nptr == °@') £ 
base = 83 
nptr++5 
if (4c = #nptr) == 
base = 143 
nptr++5 
3 
> 
else if (base == 16 && *#nptr == *@") € 
nptrt+35 /* discard @:/GX prefix if hex #*/ 
if (4c = #nptr == *H7) Ft «© =~ 7X") 
nptr+t+s 
> 


nptr-—-s /* convert the number #*/ 
while (c = #+4#nptr) € 
if {isdigitic)) 
digit =c — "873 
else 
digit = c — ¢isupper(c) 7 *A” = 7a") + 1853 
if {digit < @ i! digit >= base) 
breaks 
result = _BASEMUL (base, result): 
result += digits 
3 
if (negative?) 
result = —-result;$ 


if ¢(endptr '= NULL?} ¢/* point at tail #*/ 


*endptr = (char #)nptr3 
return result; 


registers for the compilers own tem- 
plates. 

Listing two is the parser output that 
corresponds to Listing one, with my an- 
notations alongside, to show what's go- 
ing on. DO, AO and occasionally D1 are 
used for temporary results; if more space 
is needed, values are pushed onto the 
stack, as between L24 and L25. Prefix 
CLR instructions are widely used to clear 
the high bytes of registers that will hold 
unsigned values. 


LINK instruction 


The LINK instruction reserves storage 
space for the local variables, offset on A6 
like the parameters. In practice the space 
is never used, as all the variables in 
STRTOL are stored in processor regis- 
ters. The default code to fetch and store 
every value at an offset on Aé6 is less 
efficient, but allows more variables. 

Labels are numbered from L1; the com- 
piler allocates numbers as it goes along. 
Some are unused in this case; L41 is only 
needed if the function has multiple 
RETURNs, and L38 and L40 never ap- 
pear at all. 

The globallabel CTYPE points at 256 
bytes with bits set to categorise the char- 
acter codes 0 to 255. ISSPACE, ISDIGIT 
and ISUPPER generate code to look up 
a code and test the relevant bit in the 
table. The address of CTYPE is con- 
verted into an absolute address after the 
program is loaded. The ADDQ.L #1 in- 
structions could be eliminated if_ CTYPE 
pointed one byte later. 

L8 turns up rather late, and reveals a 
bug in the source. The second WHILE 
loop that scans digits is conditional to the 
test IF (BASE==0). The code never scans 
any digits if an explicit base is specified. 
It's hard to see this from listing one, 
because of the erratic indentation of the 
source. 

Another subtle bug crops up between 
L10 and L19. The closing bracket in IF 
((C = “NPTR ==‘x’) should be before the 
== comparison. As written the code as- 
signs the value of *NPTR == ‘x’ to C, 
giving a true or false result, 1 or 0. The 
code fails if the number starts OX. 


Register variables 


Register variables save time, but C68 
stillhas to transfér them into DO to perform 
calculations. The three lines before L37 
could be replaced with NEG.L D5, but the 
code generator does not spot this im- 
provement. 

The last three lines of source generate 
just four instructions, then C68 copies the 
result from D5 into DO, restores the old 
register values, un-links the local space 
and returns to the caller. 

The lines that start with dots are assem- 
bler directives. The supplied assembler is 
unfriendly and limited, but it works. Itis not 
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ideal for human programmers but suits the 
linker and assembly code subset gener- 
ated by C68. The linker is reputedly three 
times faster than the GST linker supplied 
by Sinclair and Metacomco, but greedy for 
ram. 

File utilities supplied with C68 include 
routines to maintain libraries and ARC, 
which can compress or restore groups of 
files in PC or QL format, with task headers. 
DIFF compares text files to find matching 
sections, but source for DIFF is not pro- 
vided. 

Phil Spink has written a public domain 
C68 task to read and write Unix CPIO disks 
ona/720K drive. With Multi-DiscOver, now 
marketed by Dilwyn Jones, the QL can 
expect a flood of C in future. 

Programmers need a text editor to write C 
source, Micro Emacs is the obvious PD 
choice for an expanded QL; | plan to explore 
that in a future article. Other programming 
editors such as ArcEd, Devpacand Spy The 
Editor, are suitable. 

In such a big system there are bound to 
be a few rough edges, and floating-point 
arithmetic was dodgy on versions up to 
1.05. The currentlibrary uses 32 bit (7 digit) 
decimals, but 64 bit 15 digit resolution is 
promised for version 2. 

There are some out-of-date object files in 


version 1.05. For instance the functions to 
convert QL and Unix universal dates give 
the wrong result by six hours, unless you 
re-compile LIBC_TIME_C. 

Some bugs in the libraries stem from a 
lesser degree of testing than you might 
expect of a commercial product. Routines 
may work well in practice, but not as docu- 
mented. All this can be fixed, as you have 
the source to re-compile. 


Watch your step 


The C language does not tolerate fools 
gladly. Code written for pure efficiency is 
often dangerous and non-portable. The 
compiler is simple-minded, and putting 
garbage in breeds garbage out. The pack- 
age does not yet include LINT, a Unix too! 
that highlights machine-dependent or im- 
plausible code. Debugging facilities are 
available if you re-compile your program to 
include special signposts and error-trap- 
ping routines. Options allow single-step- 
ping, watch-points and checks for memory 
overflow. 

The separation of parts means that diag- 
nostic messages pop up all over the place, 
and they may be hard to relate to the 
source. It is easy for faulty programs to 
corrupt memory outside the task. This is 


often fatal for the entire Qdos or MS-DOS 
system; on Unix it only knocks out the task. 

Much of Qdos, with the notable exception 
of the file system, is modelled in style on 
Unix. The many parts of C68 may be | 
daunting at first, but they provide a good 
grounding, and Unix enthusiasts will get 
quick results. 

Real Unix systems rely on monsterous 
hard disks and virtual memory, but many of 
their programs will now run on the QL, 
thanks to the conversion efforts of Dave 
Walker and Jeremy Allison. C68 means 
that new and interesting QL programs can 
be developed with a prospect of later con- 
version and sale on other machines. This 
will extend the life of the QL and encourage 
programmers to continue to use it. 

| have only skimmed the surface of C68 
here, and hope to explore floating-point 
and function calling in a future article. As 
usual, comments from readers are wel- 
come, care of QL World. 

C68 is widely available from QL PD 
suppliers, including CGH Services (£2.00 
per disk), Qubbesoft (£5.50 for all 7 disks 
in the UK, £6.50 for continental Europe or 
£7.50 anywhere in the world). Quanta 
members can have it for free, if they send 
blank disks to the C Librarian, Norman 
Dunbar. Try it! 


QD Ill - The first (and only) Editor using the Pointer Environment. Dynamic memory 
tion be limiton numbers of lines, comfortable block-handling and many, many 
res, 


QMenu — the Menu Extension NOW IN VERSION 3! GQMenu is a very easy to use 
interface with pre-defined menus (e.g. file-select, simple-choice boxes, select from 
lists). These menus may be used from SuperBASIC, machine code and other 
lan ois. File-select, directory-select and list-select all re-written with more options, 
ee umns etc, £12.90 

Update from previous version with new manual £5 


FiFi - the FileFinder FiFi is easy to use and extremely useful. Fifi scans devices or 
directory trees and searches files or filenames for 44 Combinations are possible, 
@.g. String 1 AND String 2 BUT NOT String 3 etc. £16 
DISA ~ Intelligent Disassembler which allows you to disassemble interactively any 
kind of machine-code, Generates ASCll-output which may be assembled using the 
GST (Macro) Assembler. £29 
QDOS Reference Manual — This book is a must for all m-code programmers. It 
explains how to use QDOS, all traps and vectors, the Thing See, ie HOTKEY 
System II and much more, It points out which features ona QL, an Emulator and 
how to write compatible for the future operating systems, DIN A5, 170 pages. £30 
QPTR ~ The Pointer Environment Toolkit Revised manual which describes how to use 
the Pointer Interface and the Window Manager from SuperBASIC and machine-code. 
R comes with examples on disc, keys, macros and extensions for SuperBASIC. 


FLP/RAM Level 2 now with ATR!!! Replacement EPROM for SuperGQBoards (V1.17 
onwards, with & without mouse} or TrumpCard (please specify!). New Manual! Real 
sub-directories! QL-Emulator compatible! About twice as fast, with improved slave- 
block-handling! £18 

EASYPTR Il - Create your own Pointer-Env. menus & sprites, use them in your own 
SuperBASIC or machine-code ey dae =e i the PE facilities, even split 
Balan ey sub-wincows and uses the Menu Extension! Many examples and better 
manuall £49 


Sinclair/QL World March 1992 


QL-Emulator for ATARI ST 
{260, 520, 1040 andall hinges. butno STE's). This hardware, together with software 
turns ory ATARI into. a QL. The emulator supports the standard MODE 4 as well as 
a MODE 4 in much higher resolution (768x280). 
The QL emulator does not interfere with AT-emulators, it also runs even faster if 
accelarator cards (HyperCache, AdSpeed) are built into the machine. Of course, it 
ins real subdirectories (complete Level 2 device drivers) on floppy, hard-disk and 
RAM-disc. 
The complete QL emulator package includes a lot of utility software and extensions, 
If you are interested in an emulator, you should write for more information £166 
EPROM Cartridge for the Ql-Emulator, switchable 
~ with standard drivers £33 - with extended drivers £33 
Floppy adaptor to connect QL discdrives to the ST £9 
Monitor-cable ATARI to Scart £9 
Centronics-cable 2m £6.50 5m £10.50 


Games 
Diamonds £11 - BrainSmasher £12 - Arcanoid £10 
Firebirds £10 - SuperGamesPack £25 - QShang £14 
Pack of 10 3.5" discs MF2DD £3.10 - MF2HD £6.30 
QSUP System Utility Pack £26 - Thing & pom Manager £18.50 
QDesign - Graphic-and Design-program { & 24 pin) £48 (Deskjet & Laserjet) 
£A5 - Font-Vector-Editor for a ign £1 
parca - Database program £55 
Please add £4.00 for postage and package (Europe) or £4 for one item and 
£2.50 for every further item (Overseas). All prices excl. V.A.T. E&OE. 


EAISO=H 


Cards welcome! No extra charge! 
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ABACU 


Howard Clase 
continues with the 
second part of his 
Abacus thesis. 


f I haven’t convinced you of the ad- 

vantages of using Abacus rather than 

SuperBasic for a single calculation, 

consider the kind of problem that 
involves repeated application of a single 
formula with a varying parameter — for 
example the height of a missile at various 
distances during its flight. This is shown 
in Listing one. 

AUTO_CALCULATE is turned off 
(<F3>, <D>, <A>, <ENTER>) so that the 
velocity and angle data can be altered 
easily in rows 9 and 10. The X values 
(horizontal distances) are generated by 
the formula in B14: row( ) returns the 
numerical value of the row and you have 
to subtract the number of first row (here 
14) so that you start at the right place; the 
multiplier — in this example 25 — sets the 
increment between values. I set the incre- 
ment large in my example to avoid filling 
the pages of QL World with too many 
meaningless numbers, and choseasmaller 
value and a longer table for better resolu- 
tion. Columns Cand D contain the formula 
for calculating the height (Y) as a function 
of distance (X) (in ordinary algebra this is: 


y = x*tan(a)-g/2/v%2*x%2/(cos(a))*2, 


where a, v, and g are angle, velocity and 
gravity respectively. This simple formula 
doesn’t allow for wind resistance }. Once 
you have typed this into C14 you can 
ECHO (<F3>,<E>) or COPY (<F3>, <C>) 
it to D14, but you then have to AMEND 
(<F3>, <A>) it to change the absolute ref- 
erences. Abacus is able to handle correcting 
relative cell references when formulae are 
copied around the grid — and even when 
extra rows or columns are inserted, but 
absolute values are left alone. In this in- 
stance all the $C references have to be 
changed to$D. Once you have got the first 
row of your table working you can gener- 
ate columns as long as you like (memory 
permitting) in two ways: either by using 
the ECHO command (<F3>, <E>) or (my 
preference) by AMENDing (<F3>, <A>) 
the cell to read: col = [old formula], then 
press <ENTER> and put in the range you 
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-20 
ERERBREBE BEB RERERE EE 
($ 


require. This should be done for columns 
B, C, and D. You can of course use any 
formula of your own devising and set up 
as many parallel columns as you need. 
The grid has also been prettied up a bit by 
reducing the column widths (<F3>, <G>, 
<W>>) TO 7 (A) OR 6 (B-E), and the num- 
bers set to integers (col B) or two decimal 
places (cols C and D) using the UNITS 
command (<F3>, <U>, etc.) Incidentally 
for an instant report of the current width 
of a column, type WIDTH( ) into a blank 
cell in the column (don’t forget the brack- 
ets). 


Graphs are best 


Unless you have an amazing head for 
figures columns of numbers are not very 
informative; this sort of data is best pre- 
sented in analogue form by way ofa graph. 
You can plot a crude kind of graph in 
Abacus, but you get a much better picture 
if you export the data to Easel. The same 
approach can be used to produce a graph 
of any mathematical function. 

I am not aware of a currently available 
commercial graph plotting program, but 
there have been at least three good ama- 
teur SuperBasic programs written: two 


<<< Traj_aba >>> 


Missile Trajectory 


4\<<< Move the cursor to the 
oo oe cell to enter- 
Then press <F3>, <X%. 


9! Velocity (m/s) 
10 {Angle (deg) 
11|Gravity (m/s*2) 


42 <<< 
BO <<< 


B14 (row()-14)*25 


C14 B14*TAN(RAD($C10) )-$C11/2/ 
$C9°2%*B1i4°2/COS(RAD($C10) )~2 


D14 B14*TAN(RAD($D10) )-$D11/2/ 
$D9°2*B14~2/COS(RAD($D10) )*2 
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are available from the Quanta library, but 
the Microdrive Exchange version doesn’t 
| seem to have survived the coup! (As the 
author of one of them any further review 
from me is inappropriate.) [f you have not 
got access to one of these then the Abacus / 
Easel method can give good results. The 
designer of the export/import interface 
between Abacus and Easel clearly had 
financial spreadsheets most in mind, so it 
is not as convenient for our present pur- 
pose as it might be, but as long as you keep 
to the rules it works quite well. 

In the following discussion I shall as- 
sume the usual labelling of the axes, ie the 
Y axis is vertical and the X horizontal and 
also that the data are arranged in columns 
rather than rows. 


Easel limitations 


The first drawback is that Easel really 
only plots a series of Y values assuming, 
that the X intervals are equally spaced. 
You can fabel the X axis with the values, 
but Easel cannot respond to the values; it 
just treats them as text. This means that 
you cannot increase the ‘resolution’ in 
areas of special interest; your table of X 
values must be evenly spaced. I find the 
easiest way to do this is to use the ROW() 
function to generate the X value as illus- 
trated in Listing one. 

The next problem is that your EXPORTed 
data block must have a TEXT label at the 
head of each column. If not the column is 


nm$= 


Q_tskf 


Q_tskf "“mdv2_easel 


either ignored altogether or the first item 
of data is replaced by a default label (eg 
COLB$). The column of X values has to be 
in text format too. Fortunately it is quite 
easy to convert a column of values to text. 
To get a good graph set the increment so 
that there are at least 15 rows of values of 
interestin your table, and save your Abacus 
program to disk or mdv, since it is easier to 
re-LOAD it than undo the following. Then 
make sure that AUTO- CALCULATE is 
off and AMEND the formula in the first 
cell of the column (B14 here) as follows: 
add ‘col=str(’ before the existing formula 
and ‘,2,0)' after it (don’t type the quotes!) 
so that it reads: col=str (old-formula,2,0). 
(The 2 selects integer format and the Oisa 
dummy -see the ‘str’ function in the guide 
for more information.) Press <ENTER>, 
and tell Abacus which rows you want to 
extend your alteration to. This will replace 
all the numerical entries in the column 
with the equivalent character string. If 
you have done it right (and you haven't 
altered the justification defaults) all the 
numbers will move across to the left- 
handsides of their cells. Nothing else in 
the grid should change. Now EXPORT 
your block of data to Easel (<F3>, <F>, 
<E>, <E>, block reference) making sure 
that the block includes the text labels. In 
the example the block would be B13:D20. 
If you give the file a name like ‘Traj’ it will 
appear on your default device as 
‘Traj__exp’ 

Now move to Easel. Select the appropri- 
ate display format ~ 3 is a conventional 


“Aba_Eas_ boot" 


“mdvl_abacus",160: G@LEAR 
,64: CLEAR 


a 
REMark ARAMARK AAR AAR ARK AAKRA RR ARR AAR AA ABA 


DEFine 
REMark 


PROCedure 


Q_tskf(task_name$%, sp$) 


see: Simon Goodwin QL World April 1989 p 26 


LOCal sys_vars,task_tag,ch_bas, last_ch_num,ch_ptr 


sys_vars = 163840 


Space = 


“O"&sp$: DIM dummy$(space-1,1022) 


IF Sys_W{(96)=0: POKE_W sys_vars+96,1 


task_tag = Sys_W(96): 
PAUSE 200 


ch_bas = Sys_L(120): 


last_ch_num = 


EXEC task_name$ 


Sys_W(114) 


FOR ch.ptr = ch_bas TO ch_bastlast_ch_num*4 STEP 4 
IF PEEK(ch_ptr)<> 255: REMark is channel open? 
ch def = PEEK_L(ch_ptr) 

IF PEEK_L(ch_def+4) = PEEK_L(PEEK_L(ch_bas)+4) 


IF PEEK_W(ch_def+8) 


= task_tag 


IF PEEK L(ch_def)>120 
POKE ch_def+67,1: EXIT ch_ptr 
END IF :END IF :END IF :END IF 


NEXT ch ptr 


PRINT\ "Warning, no con channel in “;task_name$ 


END FOR ch_ptr 
END DEFine 


AA AAA AAA MAAK AEA AAA 
REMark 


DEFine 
RETurn 
REMark 
DEFine 
RETurn 


FuNction 


FuNction 
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BARA AKA AARAR AAA AK ARR AAR AAA 


Sys_L(ad) 


PEEK_L(sys_varstad): 


Sys_W(ad) 


PEEK _W({sys_varstad): END DEFine 


NEW USES FOR ABACUS 


graph — by <F3>, <C>, <F>, <3> and IM- 
PORT (<F3>, <F>, <I>, “Traj”) to see your 
graph. In this instance you will get two 
trajectories for 60° and 30°, and demon- 
strate that the ranges are both the same, 
but that you would be better advised to 
use 60° if there are tall trees between you 
and your target. Of course you can dump 
this to your printer too; Figure one shows 
the output I got from ‘Traj__aba’ using an 
increment of 10. 


Switching 


If you have Taskmaster or one of the 
other multitasking facilities switching be- 
tween Abacus and Easel is easy. If you do 
not have a multitasking facility like 
Taskmaster or Qram and have a mini- 
mum of 256K extra memory you can use 
Simon Goodwin's Taskforce (QL World 
April 19 1989) modified as in listing two. 
This will work as a boot on its own, but 
you may, of course, add extra lines of your 
own eg to activate TK2 or Speedscreen or 
to set ALTKey definitions. I know it works 
with a JSU rom, and I think that it should 
work with other Sinclair roms, but cannot 
guarantee it. It will need modification to 
work with Minerva in two screen mode. 

Lines 110 and 120 should be altered ac- 
cording to your system — eg if you use 
disks then it is easy to have both programs 
on the same disk. I happen to be writing 
this on my backup machine whose only 
adornment is an extra 256K. It requires a 
certain amount of juggling of mdv car- 
tridges since both Psion programs are 
configured for mdv1, so the right one has 
to be there when required eg for help or 
printing. (You do not need to reconfigure 
them just to EXEC them from a different 
drive.) Thesecond parameteris the amount 
of memory (K) protected (in the array 
dummy$ at line 180) so the larger the 
number the s7naller the space available for 
your Psion program. The numbers given 
divide the spare memory about equally 
between the two Psion programs and Su- 
perBasic for this amount of memory. 

Inoperation you switch between the three 
by pressing <CTRL+C>; <SHIFT+F5> will 
restore your Psion windows, and you have 
to use the CLS#n command to clear the 
SuperBasic windows. If you have TK2 this 
is an obvious application for the ALTKEY 
function. You can of course use the routine 
to multitask any two EXECed programs — 
or more if you have enough memory. For 
more information on Taskforce see the 
original article (line 150). 

If you do not have extra memory then 
you will have to reset and reboot with 
Easel. 


Marks not money 


Apart from the fact that the numbers 
represent marks rather than money this is 
very similar toa financial spreadsheet, but 
Tinclude it because it illustrates the use of 
the rarely used ‘lookup’ function and also 
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contains a printing trick. The printout and 
formulae are shown in listing three. 

Where a formula is used over a range of 
cells I give the range, and show the for- 
mula as it appears in the first cell. Since all 
the addresses are relative it can be easily 
copied to the other cells by using the 
COPY, ECHO, row=, or col= facilities as 
appropriate. The average formula in row 
12 only occurs in alternate cells, the sim- 
plest way to achieve this is to echo to the 
whole block (D12:J12) and rubout (<F3>, 
<R>, <ENTER>) the cells you don’t want. 

The various marks are entered directly 
into columns D, F and H, and the total 
calculated in column J. We have to round 
off marks to the nearest 5 and letter grades 
are awarded as follows: A100-80, B75-65, 
C 60-55, D 50, F 45-0. The first is accom- 
plished in cells L6:L10 using the usual 
rounding off formula and the letter grades 
determined from the lookup table in the 
block N12:017. This requires a more de- 
tailed look. 


Lookup table 


The lookup table is just two columns of 
numbers, the first is the lowest mark for 
each grade in descending order, and the 
second the Ascii code of the correspond- 
ing letter. The lookup command isin three 
parts: the range to search, the offset of the 
column where it will find the answer, and 
the value to search for. Consider M6, the 
value to search for is found in L6 ie 80. The 
search starts at N6, and continues down 
until it finds the last cell containing a 
value no greater (equal is OK) than the 
search value of 80. It then returns the 
corresponding value found in the column 
offset by the specified amount. In this case 
the offset is 1 and the return value is 65, 
the Ascii value for the letter A. It is obvi- 
ously important to have the values in 
your lookup list in descending order, and 
you must include both the minimum and 
maximum values in the table. 


Lookup limitations 


Unfortunately, the lookup function in 
Abacus is not very well thought out. The 
main problemis that only relative and not 
absolute addressing is allowed. This 
means that the command starts looking 
for the table one row lower each time it 
descends a row of the table. The only way 
around this is to put the top of the lookup 
table lower than the lowest cell that calls 
it and leave the column above free of any 
numerical values (luckily it ignores any 
text entires it may come across, so you 
could put some text in column N — in fact 
I do, but it doesn’t appear on screen — see 
below). Lookup tables can be in rows as 
well as columns in which case turn all the 
above comments sideways. 

The other point of special interest in this 
Abacus programis the invisible textin the 
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upper part of column N. I find it is easy to 
lose my place when looking across wide 
tables of numbers, unless they are di- 
vided horizontally at regular intervals — 
every five is about right. The formula in 
N6:N10is the way todo this on the printer; 
Ihave set the interval to three here to keep 
my example table small. The condition 
tests whether or not the row-number- 
plus-one is an exact multiple of three, if 
not it prints an empty string, and if it is it 
prints an Ascii 10, or line feed. This doesn’t 
appear on the Abacus screen either, but it 
does have the desired effect on the printer 
as you can see. I usually use the ae diph- 
thong character <CTRL+SHIFT+8>—Ascii 
138 - instead of CHR(10), since my Epson 
printer treats this as a line feed too, and I 
can see where the blank line is going to 
come in advance. You'll have to test this 
out on your own printer. 


Column widths 


The bit at the bottom below the double 
line isn’t really part of the program, butis 
just put in to show how I have adjusted 
the column widths. The two formulae in 
A20 and A21 both give text, and the block 
(A20:021) is centrally justified. 

In my introduction I mentioned that I 
had, on occasions, used Abacus to gener- 
ate pure text output. This has been for the 
production of voting slips, tickets and 
other small items that require the use of a 
guillotine on regular sized pieces of pa- 


per. The trouble with Quill is that while 
you can copy whole lines vertically, you 
cannot copy part lines horizontally — but 
you can do this in Abacus. 


Border pattern 


The example shown in listing four is 
more or less self evident. It started with a 
20 character x 11 line block A1:C11 - to fit 
neatly onto a 80 x 66 page (24 in all), Note 
that the formulae which generate the bor- 
der pattern all refer absolutely to A2 
(including A2 itself initially), get your 
text looking right in the prototype, and 
then copy it to fill a horizontal row with 
clones. Edit the serial number cell in the 
clones to increment the copy on its left by 
one, and then copy the rows down the 
page, changing the serial number of the 
first ticket on each new row to calculate its 
value from the one above so that they 
ultimately all refer back to the value in the 
prottoype. 


Serial numbers 


Once the page is complete you can 
quickly change the border character by 
inserting a new character into cell A2 and 
pressing <F3>, <X>, and you can change 
all the serial numbers by changing the 
value in B10. Of course anyone with a QL 
will be able to forge their own tickets, but 
they should be pretty easy to track down 


<<<< Class_aba >>>> 


> 


i B iC; D {Ei F 
Chemistry 2210 


Aardvark, Ethel 
Bartok, Bella 
Caesar, Julius 


Dean, James 
Eliot, Thomas 


RPOWOMAMMFWNHH OW OADM ONFE 


NNR RFP RP RB RP RR ee 


Fall 1999 


Final Total Mark/Gr 


Key Formulae 


A5:M5,A11:M11 
A6:A10 

J6:J10 

L6: 110 

M6: M10 

N6:N10 
D12,E£12,J12,L12 


row()-5 
D6+F6+H6*0 .6 


A20:020 
A21:021 


ehr(col()+64) 


str(width(),2,0) 


rept("-",width()+1) 


§*(int( (J6+2.5)/5) 

chr(lookup(N6:N17,1,L6)) 

if ((row()+1)/3-int((row()+1)/3)>0,°",chr(10)) 
ave(D6:D10)/D4*100 
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a ie, 


- you probably know all the likely forgers 
in your area already! 


how useful Abacus can be. In fact whatever 
you do, if you have just been using Abacus 
to balance your cheque book or even not at 
all I hope Ihave been able to convince you 
that itis worth a second look - don’t let the 
accountants have all the fun! How about 
an Abacus game, someone? 


The ULTIMATE operating system upgrade 


NKID HINEROA nou with battery for 256 bytes: 
ram, CRASHPROOF clock & interface (I4C) for 

bots etc. Can autcboot from battery rom. 

Other features (common to FKIAMKID: 

Rutoboot on reset’ Multiple Basle’ Fors ber 

schaduler-graphice (1G of Lightning) -s tring 

handling etc,’ WHEN ERROR’ Second screer/TRACE 

Foreign kybd drivers’ ‘Warm’ fost reset etc 


T to NRT UPGRAGES: up to 1.79 -£5, Rest FREE 
(gerd rom (PROTECT LEGS!) ond disk or 2 mvs) 
fk Echomai! around Europe, ond FIDO metic | 
Original MT... C48 AD eee EES f {ab of files including the UHOLE 


ALL VERSIONS FULLY GOLD CARO COMPATIBLE King Jomes' bible! 


- OL POG 232) Vek e2ded2e2ebis ethes 
QuaLsoft Terminal : 
ViewdataVTS2-U1100 QL TERMINAL EMULATOR QL REPAIRS 


fast for alectronic milly PRESTEL etc, 
CET download. Compatible with Tandata Gconnect ‘ i 
Oo tor, Use 0c + RSZ320 to drive QLs tes pk inet en test rig 
as LOBE ese ein <NDV harduare extra if required) 
E27 - 6&6 month guarantee 


fotvare 2.5" ad) tenet UH 
COMPUTER CLEANERSEN FILE TRANSFER 


HELP STOP POWER SUPPLY INOUCED LOCKUPS programs 
error free OOIIDEM betueen computers 


AND PROTECT COMPUTERS 
Huch improved mains filters. 48-88 db cut. 
Available for IBA PC ond compatibles, 
ATARI ST ond Sinclair &. Connects to 


Contain inductance, spike filters (thrae in 
Psion organiser via Psion comms [ink 


Other components (sockets alc)... plse PHONE 


BULLETIN BOARD 


QRBS - u's first & scrotting board 


3h 4 uap ond certified 248vac capacitors. 


Quay (So OGOPLOF) ..eservssarersaeennrs —_————— 
Eine Se ake aig nies Se ae Dusk soft program (per IVC) sess» £7.90 
4-uny 130 trailing socket) cssccccsee £28 Serial lead (ncwe 2 computers)... £10 


Complete package for 2 computers. E25 
HAIL ORDER ONLY 


471-724 9053) 


2379 (ALL speeds to Y22bis) 
Prestel: 617249053 


All prices include UAT ond postage in the UK 


12 Bouverie Place, London U2 188 


SCROLLING BES FOR ORDERING/L HELP 
Fox: @71-706 2379 


The generation of attractive looking ta- ‘A! B CID! E iF 
bles is also easier using Abacus than with LI KKRKKKKKNHKHKKE GAIN KKH HH HIE NNN HAHN HN 
Quill. Although Quill has a fairly flexible 2!% New Millenium % % New Millenium . 
TAB command I find Abacus more useful : : Party : a Party : 
here too for two reasons: itis much simpler 5 9% December 31 2000 % % December 31 2000 % 
to generate nice borders using “col = 6'% 18.22 pm x% % 18.88 pm % 
rept() etc (see my ticket example) and the 71% xx. % 
option to ORDER the columns in alpha- B1% Admit One % % Admit One % 
betical or numerical order is often useful. 91% $25 % % $25 % 

1B{% 1% % 2% 

LI NSRRBKXBRXNXAKHKBLKVBWH IIA FINA AAA Ae tote 2M He Ho oe Ae oe 

12 | XBWVVWRVRRRB HAA toto te A IAN HM M6 To Ao No NoMa Me Ma Mo 2 2 A Ao 

13% New Millenium % % New Millenium % 

Best calculator 14:% Perky % % Party % 
15} % % % 

16!% December 31 2000 % % December 31 2000 % 

F : . BB % 

In these two articles I have tried to dem- is 19.88 pm = : 19.68 pm % 
onstrate why many professional scientists 191% kawit Gne x % Kani. One %, 
have taken to spreadsheets as the best new 201% $25 % % $25 % 
calculation aid since the invention of the 211% 3% % 4% 
hand-held calculator. If you are a student QZZIKRKKBRYBB DAMA MMI ABBAS AM MAA IM Mote dee 
or teacher in maths, physics or chemistry I 
hope I have given you some ideas as to Fo tae 


NEW USES FOR ABACUS 


<<<< Ticket_aba >>>> 


A1l:B1, A11:B11 rept($A2,width()}+1) 
A2:A1@, C1:C11 $A2 


B1i@+1 
B1G+2 
B21+1 


E10 
B21 
E21 


C.G.H. SERVICES 


Cwm Gwen Hall, Pencader, Dyfed, Cymru, SA39 9HA 
(Tel. 0559 384574) (9am - 5pm) 


PUBLIC DOMAIN 
AND SHAREWARE LIBRARY 
ALL DISKS £2.00 EACH INCLUSIVE OF MEDIA AND P&P 


ADVENTURE GAMES DISK 1 [includes fantasia and ye classical type of adventure) 
ADVENTURE SOLUTIONS DISKS 1-3 {includes The Pawn and Martville Manor, mainly ST throughout) 
ADVENTURE SOLUTIONS DISK 4 {QL specific) 

ADVENTURE GAMES SOURCE CODE DISK 1 (includes Fantasia, Haunted House, etc} 
ADVENTURE UTILITIES DISK (includes Quill to SuperBasic coverter and damo adventure) 
AUSTRALIAN P.D. DISKS 1 + 2 (includes a wide variety of games, utilities atc} 

COMMUNICATIONS DISK 1 (includes OBOX Bulletin Board system} 

COMMUNICATIONS DISK 2 (includes OL Kermit} 

CONNECTIONS DISK 1 {includes ST - QL screen and file converters} 

DEVICE UTILITIES DISK 1 (includes Archiving, compactng, formatting and Shel programs} 

DILWYN JONES DISK 1 {includes many SuperBasic progs and Wordsearch) 

EDITOR'S DISK 1 (includes QED and MicroEmacs) 

EDUCATIONAL PROGRAMS DISK 1 (includes maths. music and chemistry programs) 

EMMANUEL VERBEECK DISK 1 [includes screen save and print progs. and many more utilities) 
ESOTERICA DISK 1 [includes DIY Pyramid construction prog. Biorythms and Psycholagy progs) 
FRACTALS DISK 1 (includes large numbers of mandelbrot and other fractal progs} 

FRACTALS DISK 2 (Carl Cronin’s mandelbrot prog plus animation screens) 

FRACTALS OISK 3 (Rainer Kowallick's mandelbrot prog as amended to give “Jewel” effect) 

GAMES DISK 1 (includes Starburst, Cavern Frenzy) 

GAMES DISK 2 (includes many arcade typa games) 

GAMES DISK 3 [includes OL War) 

GERMAN TO ENGLISH DICTIONARY (multi-tasking) 

GRAPHIX ANIMATION DISKS 1,2,3,4,5 (TV Movies} 

GRAPHIX OEMOS DISK 1,3,4 * 

GRAPHIX SCREENS (FIF FORMAT) DISKS 1,2,3 

GRAPHIX SCREENS (PIX FORMAT) DISK 1 

GRAPHIX SCREENS (SPECTRUM) DiSK 1 

GRAPHIX SCREENS (ST) DISKS 1,2,3,4,5,6,7,8 

GRAPHICS/SCREEN UTILITIES DISK (includes sprite designer. CAD and window progs.} 

HAM RADIO DISK 1 {includes PC conversions) 

INDEXES DISK 1 (Quanta and QL User/World) 

MATHS DISK 6 (includes calculator, Fi and calendar creator progs) 

MONEY DISK 1 (Capital Gains Tax and Simple Book Keeper) 

OLIVER FINK OISK 1 (includes progs requiring Painter environment to work) 

PRINTER UTILITIES DISK 1 [includes label creators and printer tutorials} 

PROGRAMMING DISK 1 {includes QL PROLOG} 

PROGRAMMING DISKS 10-18 (Release ||) 

RALF BIEDERMANN OISKS 1 + 2 (excellent collection of programs, games, utilities, etc) 
RECREATIONAL MATHS DISK [includes life celular automatons etc) 

SUPERBASIC UTILITIES DISK 1 (includes. large numbers of utilities progs, toolkits, procedures, atc} 
TEXT DISKS 1-7 (The Bibie - Old Testament) 

TEXT DISK 15-16 (The Bible - New Testament} 

TEXT DISK 14 (400+ Business Letters from U.S.A) 

TYPING TUTOR (Artip - Touch typing tutor} 

THOR DISK + (Collection af Thor compatible programs} 

Please note the above are only part of aur P_D. Library. Mew progeams are constantly being added and more are abways 
welcome. Please send an SAE far full catalogue. We can also supply commercial software for STs and Amigas! 

ALL PRICES INCLUDE MEDIA AND POST AND PACKING FOR THE UK PLEASE ADD 10% FOR ORDERS IN EUROPE: 
20% OUTSIDE OF EUROPE. PLEASE INDICATE 3.5°5.25"/MDV VERSIONS WHEN ORDERING. 
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LISTING 2 - Machine code loader, and DATA statements 


Simon Wallis goes 


L . 1800 REMark Routine to load machine code from data statements into memory 
back into his 1810 DEFine PROCedure SetUpMcode 
* . 1820 LOCal loop, Checksum, a,b,c,d,e,f 
numerical routines 1830 PRINT ‘Loading machine code from DATA statements’ 
Ze 1840 maxlength = 80 : decimals = 20 
and adds division. 1850 accumulator = 0 
1860 base = RESPR (1280 + 20 * maxlength): REMark space for 20 bignums 
1870 addr = base 
, : £O.- 1880 RESTORE 
n my article of October 1990 I pre- 1890 REPEAT loop 
sented a suite of routines which car- 1900 IF EOF THEN EXIT loop 
pc j ; A 1910 READ a, b, c, a, e, f, Checksum 
ad oO ) ‘ , b, c, a, e, f, : 
Tied out arithmetic OPSrAOOnS Of 1920 IF at+bt+c+d+etf <> Checksum: PRINT ‘Error in data’: STOP 
arbitrarily large integers. This article 1930 POKE W addr, a : POKE_W addr+2, b: POKE_W addr+4, c 
expands the list of available operations to 1940 POKE W addr+6, d: POKE W addr+8, e: POKE W addr+10, £ 
aa tts wae ft . : 1950 addr = addr + 12 
include division, uses fixed point arith- 1960 PRINT ’.‘+: REMark Some activity whilst loading machine code. 


i 
metic instead of being restricted to inte- 1970 END REPeat loop 
s and plains how t alcul rari- 1980 PRINT 
gers, and explains how to calculate vari Teab 4 
ous trigonometric functions. Two pro- 2000 DATA 18663, 3072, 18938, 1018, 31232, 14868, 87791 
Sata hats oo nm 2010 DATA 51397, 18938, 1012, 55748, 19679, 48, 146822 
grams give examples of correct use of the 2020 DATA 20085, 18663, 2056, 10241, 24832, 65502, 141379 
routines — the first evaluates the math- 2030 DATA 8780, 10242, 24832, 65494, 9292, 19679, 138319 
ematical constant ‘e’, the base of Naperian 2040 DATA 4112, 20085, 18663, 11400, 18938, 966, 74164 
lowaritienectheeacahdl Fas Sager 2050 DATA 31232, 14868, 10242, 24832, 65468, 8268, 154910 
ogarithms, the second program 1s a four 2060 DATA 10241, 24832, 65460, 6360, 20941, 65532, 193366 
function calculator. 2070 DATA 19679, 4404, 28672, 20085, 18663, 18696, 110199 
2080 DATA 18938, 926, 32256, 15892, 21383, 10241, 99636 
2090 DATA 24832, 65426, 28672, 6336, 20943, 65532, 211741 
: 2100 DATA 19679, 4242, 20085, 18663, 2056, 18938, 83663 
Pencil and paper 2110 DATA 892, 28672, 12308, 21376, 10241, 24832, 98321 
2120 DATA 65392, 18972, 26112, 6, 20936, 65528, 196946 
2130 DATA 21120, 18938, 862, 14464, 19679, 4112, 79175 
The aieaniehans wed f ltiplicati 2140 DATA 20085, 49916, 40, 53934, 48, 45742, 169765 
ne algorithms used for muitipiication, 2150 DATA 52, 25198, 8310, 6144, 18938, 836, 59478 
addition and subtraction are essentially 2160 DATA 32256, 15892, 31745, 18938, 824, 31232, 130887 
ae “ : 2170 DATA 14868, 21381, 39559, 30463, 10242, 24832, 141345 
the same as in my October 1990 program, 2180 DATA 65320, 29184, 4636, 3073, 0, 26368, 128581 
although all have been optimised and as 2190 DATA 4, 31744, 3078, 1, 26368, 10, 61205 
Ame ov icliiyekia Pais 2200 DATA 1537, 48, 28677, 20035, 20941, 65504, 136742 
such the assembly language listing is con 2210 DATA 3078, 0, 26368, 8, 29232, 28677, 87363 
siderably longer. However the speed in- 2220 DATA 20035, 29230, 28677, 20035, 10759, 21381, 130117 
crease is well worth a few extra DATA 2230 DATA 29184, 4636, 1537, 48, 28677, 20035, 84117 


- ke : ; 2240 DATA 20941, 65522, 20085, 28922, 20085, 18663, 174218 
statements. The algorithm used here for 2250 DATA 1912, 24832, 65258, 18426, 720, 31744, 142892 


long division is based on the pencil-and- 2260 DATA 18938, 710, 31232, 14868, 54213, 54725, 174686 


; . ee 2270 DATA 55237, 32256, 21381, 7713, 56866, 56838, 230291 
paper method we all learned at school. 3280 DATA 31744, 3079, 10, 27398, 31745, 1031, 95007 
Although the algorithm is asymptotically 2290 DATA 10, 5895, 20941, 65512, 28672, 19679, 140709 
not the quickest possible, it performs very 2300 DATA 7904, 20085, 19074, 26368, 46, 18663, 92140 

; : Nae , 2310 DATA 27672, 18938, 648, 31232, 14868, 10241, 103599 
well on reasonably small numbers, say up 2320 DATA 24832, 65150, 9804, 55234, 39554, 21381, 215955 


to a couple of hundred digits long. Be- 2330 DATA 21378, 6363, 20941, 65532, 16924, 20938, 152076 
2340 DATA 65532, 19679, 6198, 28672, 20085, 19074, 159240 


cause It 1s SO long, we are not printing the 2350 DATA 26368, 65528, 18663, 27672, 18938, 594, 157763 
assembly listing (listing one) but this will 2360 DATA 31232, 14868, 10241, 24832, 65096, 10245, 156514 


‘ ; ‘ 2370 DATA 39554, 55748, 9804, 38850, 21381, 21378, 186715 
be sent to any reader who sends a large 2380 DATA 6435, 20941, 65532, 28672, 6400, 20938, 148918 
SAE and postage to QL World. 2390 DATA 65532, 19679, 6198, 20085, 18663, 27912, 158069 

Lakes to cherea fteetional sumiberin | Fir Deen aeeee” apace’ ceaen” aaeg “corer "oinae wee 

‘ acid es » 24832, 65132, 8707, 29707, 24832, 182405 

the same way as | previously used to store 2420 DATA 65084, 8708, 24832, 65324, 29195, 29696, 222839 


an integer, but with a variable called 
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DECIMALS determining where the deci- 
mal point should be placed; for example, 
the number 12.34 might be stored as 
1234000 with a note that the last five digits 
should be to the right of the decimal point. 
Note that each number has the same 
number of decimal places, ie the variable 
DECIMALS is global, and if it is changed, 
then the setting-up routine (listing two) 
must be run again. 

The addition and subtraction routines 
needed no modification to operate cor- 
rectly on fixed-point numbers, as 1234000 
+ 1234000 = 2468000, which we can read as 
12.34 + 12,34 = 24.68. However, more care 
was needed for multiplication, where the 


DATA 65532, 19679, 6198, 20085, 18663, 27912, 158069 result must be shifted to the right, and 
DATA 10241, 10754, 29195, 24832, 65140, 30209, 170371 division, where the result must be shifted 
DATA 29195, 24832, 65132, 8707, 29707, 24832, 182405 3 3 34. whi 

DATA 65084, 8708, 24832, 65324, 29195, 29696, 222839 to the left. Consider 12.34/12.34, which 
DATA 24832, 65070, 21123, 3075, 11, 26112, 140223 we know is 1. 1234000/1234000 is also 
DATA 65506, 29195, 24832, 65094, 32256, 18936, 235821 000001, which, given our machine repre- 


DATA 484, 15892, 21383, 10245, 24832, 64986, 137822 : : . 
DATA 5148, 21122, 29195, 24832, 65274, 29696, 175267 sentation, we should read as 0.00001. So 


DATA 24832, 65022, 29697, 24832, 65328, 20943, 230654 the number of places to shift the result is 


DATA 65512, 18938, 446, 29696, 13332, 29184, 157108 . : oa . 
DATA 24832, 65364, 28672, 19679, 4278, 20085, 162910 the number of places that the implicit deci 
DATA 18663, 3336, 18938, 418, 31232, 14868, 87455 mal pointis from the right-hand end of the 
DATA 21381, 10241, 24832, 64918, 55749, 7700, 184821 © This edn 4 ac that the 
DATA 3079, 9, 26112, 16, 28672, 6272, 64160 number. Mgr plemented so 

DATA 21388, 20941, 65518, 24576, 6, 20999, 153428 numerator is shifted left before the opera- 


DATA 6279, 19679, 4272, 28672, 20085, 18663, 97650 tion is carried out, and no check is made 


DATA 7176, 18938, 360, 31232, 14868, 21381, 93955 : ; : 
DATA 10241, 24832, 64860, 6164, 30217, 38404, 174718 for overflow, Beware of this, and always 


DATA 6339, 20941, 65526, 24832, 65444, 19679, 202761 make sure that MAXLENGTH and DECI- 


DATA 4152, 28672, 20085, 18663, 24832, 11777, 108181 = aa igi 
DATA 29184, 24832, 64876, 24832, 65478, 9223, 218425 MALS the maximum number of digits of 
DATA 24832, 65112, 19679, 134, 28672, 20085, 158514 precision and the size of the fractional part 
DATA 18663, 1128, 24832, 64824, 18938, 282, 128667 respectively — are higher than you will 
DATA 31232, 14868, 21381, 45834, 28160, 10, 141485 P y 8 oud) 

DATA 27904, 12, 20941, 65524, 28673, 24576, 167630 need. 

DATA 4, 26672, 18938, 248, 14464, 19679, 82005 

DATA 5664, 20085, 18663, 1128, 24832, 64772, 135144 

DATA 18938, 230, 31232, 14868, 21381, 45834, 132483 i 

DATA 28160, 14, 27904, 16, 20941, 65524, 142559 Big numbers 

DATA 24576, 8, 28673, 24576, 4, 28672, 106509 

DATA 18938, 192, 14464, 19679, 5664, 20085, 79022 . 

DATA 18663, 24840, 11778, 9217, 291285, 24832, 118515 The machine code loader program 
DATA 64736, 18938, 170, 29696, 13332, 24832, 151704 tots a ‘bi . 
DATA 65036, 9223, 29186, 24832, 64716, 29185, 222178 (listing two) allows room for 20 bignum 
DATA 24832, 64784, 11776, 29186, 24832, 64776, 220186 bers’, numbered Oto 19, Of these, 0Othrough 
DATA 40576, 29187, 24832, 64734, 29186, 29697, 218212 13 are used internally by the arithmetic 
DATA 24832, 65418, 19072, 26112, 98, 29188, 164720 ; ; y PY sa lathecueh 
DATA 24832, 64714, 29188, 29698, 24832, 65346, 238610 routines, leaving you free touse 14 throug 


DATA 19072, 26112, 78, 29186, 9223, 24832, 108503 19 for your programs. The operations Add, 
DATA 64964, 29187, 29697, 24832, 64956, 29186, 242822 ia ca aaa : 
DATA 29697, 24832, 65368, 19072, 26112, 22, 165103 Subtract, Multiply and Division each leave 
DATA 29187, 24832, 65172, 29185, 29698, 24832, 202906 their result in big number # 0 — a sort of 
DATA 65266, 29696, 24832, 64610, 29186, 29697, 243287 5 rari ines 
DATA 24832, 65334, 19072, 26368, 65490, 29186, 230282 accumulator variable. The other routines 
DATA 29697, 24832, 64954, 20943, 65470, 29184, 235080 — Copynum, SetTo0, Writenum, Shiftleft, 
DATA 29699, 24832, 64576, 19679, 4230, 28672, 171688 Shiftright, Incr and Negate all operate ‘in 


DATA 20085, 0, 50, 10, 0, 0, 20145 ; . ; ; 
~ base + | 702 place’, that is, they don’t have any effect 


atria stats elses 
a's oy 
Patt st 


SUBTRACT = base + 

WRITENUM = base + 170 on the accumulator (unless of course the 
MULTIPLY = base + 476 stant : 5 : 
DECIMAL = base + 1626 accumulator is supplied as one of the ar 
SHIFTLEFT = base + 364 guments). 

a | eee ed If you ask your QL what the value of the 
ADD_ = base + 298 mathematical constant ’e’ is, for example: 
NUMBASE = base + 1028 

COPYNUM = base + 52 

MAKLEN = base + 1024 type PRINT EXP(1) 

DIVISION = base + 840 

SETTOO = base + 92 : , 

SHIFTRI = base + aaa you will get the result 2.718282. 
POKE_W DECIMAL, decimals: POKE_W MAXLEN, maxlength How does it know? And can we im- 


ae ee prove the accuracy of the result? One way 


of programming the EXP function would 
be to pre-compute it for all values, and 
UISTING 8 © Evaluation of ’e’ and-aine(2) store the results in a look up table. A nice 
Use in conjunction with listing 2 i ‘ 
idea, but there are far too many possible 
‘ 4 values which it could be asked. A book of 
0 SetUpMcode 5 2 2 . 
70 t=19: CALL SETTOO, t: CALL INCR, t: CALL SHIFTLEFT, t, decimals four figure tables might have sixty pages. 
BO BigSin t, 25 : The QL only has a 48K rom — not nearly 
' tas : 7 * 
Se Seen te eevee: on oe eee ens a enough to store details of sines, cosines, 
110 t+19: CALL SETTOO, t: CALL INCR, t: CALL SHIFTLEFT, t, decimals square roots, exponentials, logarithms, etc. 


One method of calculating EXP(X) is to 
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BigExp t, 25 
PRINT \‘e IS EXACTLY ‘;: CALL Writenum, 1, 0 
STOP 


DEFine PROCedure BigExp (X, iterations) 

LOCal loop, one, N, Nfact, XpowN, Result, temp 
one = 12 

N = 13 

Nfact = 14 

XpowN = 15 

Result = 16 

temp = 17 

CALL SETTOO, one 

CALL INCR, one 


CALL SHIFTLEFT, one, Decimals: REMark number one now equals 1 


CALL COPYNUM, N, one 
CALL COPYNUM, Nfact, one 
CALL COPYNUM, XpowN, X 
CALL COPYNUM, result, one 
FOR loop = 1 TO iterations 
CALL MULTIPLY, Nfact, N 
CALL COPYNUM, Nfact, accumulator 
REMark Nfact = Nfact * N 
CALL MULTIPLY, XpowN, X 
CALL COPYNUM, XpowN, accumulator 
REMark XpowN = XpowN * X 
CALL ADD_, n, one 
CALL COPYNUM, n, accumulator 
REMark n=ne+#tl1 
CALL Division, XpowN, Nfact 
REMark accumulator = XpowN / Nfact 
CALL COPYNUM, temp, accumulator 
CALL ADD_, Result, temp 
REMark — result = result + XpowN / Nfact 
CALL COPYNUM, Result, accumulator 
PRINT \ “Loop=' ; loop ! ‘Result=’;: CALL Writenum, 1, 
END FOR loop 
CALL COPYNUM, accumulator, result 
END DEFine 
DEFine FuNction EVEN (g) 
RETurn (g + 1) MOD 2: END DEFine 
DEFine FuNction ODD (g) 
RETurn NOT (EVEN (g)): END DEFine 


DEFine PROCedure BigSin (X, iterations) 
Local loop, one, N, Nfact, XpowN, Result, temp 


SHIFTLEFT, one, Decimals: REMark number one now equals 1 


COPYNUM, N, one 
COPYNUM, Nfact, one 
COPYNUM, XpowN, X 
SETTOO, result 
FOR loop = 1 TO iterations 
CALL MULTIPLY, Nfact, N 
CALL COPYNUM, Nfact, accumulator 
REMark Nfact = Nfact * N 
CALL MULTIPLY, XpowN, X 
CALL COPYNUM, XpowN, accumulator 
REMark XpowN = XpowN * X 
CALL ADD_, n, one 
CALL COPYNUM, n, accumulator 
IF ODD (loop) THEN 
CALL Division, XpowN, Nfact 
CALL COPYNUM, temp, accumulator 
REMark temp = XpowN / Nfact 
IF ODD (loop DIV 2) THEN CALL Negate, temp 
CALL ADD_, Result, temp 
CALL COPYNUM, Result, accumulator 
REMark Result = Result + XpowN / Nfact 
PRINT \‘Loop='’; loop ! ‘Result=’;: CALL Writenum, 1, 
END IF 
END FOR loop 
CALL COPYNUM, accumulator, result 
END DEFine 
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output of listing 3, 


Sample 
‘showing convergence of power series 


1 Result=1.00000000000000000000 


+ Loop=3: Result=0.83333333333333333334 


Loop=5 Result=0,84166666666666666667 


Loops? Result=0.84146825396825396826 


Loop=9 Result=0.84147100970017636684 
Loop=1i Result}0.84147099464806798140 
Loop=13. Result=0.84147098480865841976 
Loop=16 Result@=0.84147098480789370339 
Loop=17 Result=0.84147098480789651484 
Loop=19 Result=0. 84147098480789650662 
Loop~21. Result=0. 84147098480789650663 
Loop=23 Result=0.84147098480789650663 
Loop*25: Result=0.84147098480789650663 
SIN(1). IS. EXACTLY 0.84147098460789650663 


“Leopsl Result=2.00000000000000000000 


Loop*2 Result=2.50000000000000000000 
Loop~3 Result=2,66666666666666666666 
Result]=2.70833333333333333332 
LoopsS Result=2,71666666666666666665 
Loop=6 Result=2.71805555555555555553 
Loop-7 Result=2.71825396825396825394 
Loop=8 Resultq2.71827876984126984124 
Loop=9. Result=2.71828152557319223982 
Loops10 Result=2.71828180114638447967 
Loop=11 Result#2.71828182619049296511 
Result=2.71828182828616856389 
Result=2.71828182844675900225 
Resulte2,71826162645822974784 
Result=2.71828182845899446421 
Result=<2.71826182845904225898 
Result=2.71828182845904507043 
Result=2.71626182845904522662 
Result=2.71026182845904523484 
Result=2.71828182845904523525 
Result=2.71928162845904523526 
Result=2.71828182845904523526 
Result=2.71828182845904523526 
Result=2.71826162645904523526 
Loop=25 Result=2.71628182845904523526 
@ IS EXACTLY 2.71828182845904523526 


use a power series — a formula which, if 
you add up enough of its terms, eventu- 
ally converges to an approximate answer. 
It is impossible to obtain an exact value 
for e, or pi, as both belong to the class of 
transcendental numbers. 


Values of e 


One power series is EXP(X) = 1 + X + 
X°2/2! + X*3/3! +. ..+ X°N/NI, where 
X°N means X raised to the Nth power, 
and N! means N factorial, the product of 
N with all the numbers less than it, ie N * 
(N-1)* (N-2)*...*2* 1. Listing three uses 
this power series to calculate an approxi- 
mate value of e. By approximate I mean 
correct to perhaps eighteen places of deci- 
mals. Although twenty places are printed 
out, the last few may be wrong due to 
small rounding errors being accumulated 
gradually. If you want to work out more 
places than this, adjust MAXLENGTH 
and DECIMAL Saccordingly, and increase 
the number of iterations. Beware that for 
large numbers of iterations, N factorial 
gets very large, so ensure that 
MAXLENGTH is large enough to avoid 
(undetected) overflow. Also, make sure 
that MAXLENGTH is always more than 
twice DECIMALS, for the reasons ex- 
plained earlier. 

Similar power series exist for trigono- 
metric functions, viz: 

SIN(X) =0+X+0-X°3/3!+ 
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LISTING 4 = CALCULATO! 
Use in conjunction with listing 2. 


100 SetUpMcode 
110 Intro 

120 REPeat forever 

130 key = CODE (INKEY$ (-1)) 
140 SELect ON key 

150 = 48 TO 57 

160 = decpoint 

170 = equals, enter 


: PointPressed 


190 END SELect 

200 END REPeat forever 

210 : 

220 DEFine PROCedure Intro 

230 MODE 8 

240 PRINT ‘FOUR FUNCTION CALCULATOR‘ 


250 PRINT ‘Maximum integer part = ‘; maxlength - decimals; ‘' digits’ 


260 PRINT ‘Maximum fraction part = ’; decimals; ' d 
270 accumulator = 0 : CALL SetTo0, accumulator 
280 DisplayedNum = 12 ; CALL SetTo0, DisplayedNum 
290 CurrentNum = 13 : CALL SetToO, CurrentNum 
300 times = CODE (‘*') 

310 divide = CODE (’/")} 

320 decpoint = CODE ('.‘) 

330 minus = CODE (’-') 

340 equals CODE ('=") 

350 plus CODE (’+') 

360 enter 10 

370 LastOp plus 

380 INTEGER = -1 

390 ShiftPending = INTEGER 

400 END DEFine 

410 ¢ 

420 DEFine PROCedure NumberPressed 

430 IF LastOp = equals THEN 

440 Lastop = plus 

450 CALL SetToO, DisplayedNum 

460 CALL SetToO, CurrentNum 

470 END IF 

480 IF ShiftPending = 0 THEN RETurn 

490 PRINT CHRS (key); 

500 CALL ShiftLeft, CurrentNum, 1 

510 POKE Numbase + Maxlength * (CurrentNum + 1) - 1 
520 REMark least significant digit of CurrentNum 


: NumberPressed 


COS(X) - 1+ 0-X°2/2!+0+4+X*4/4! 

Note the alternating + and - signs be- 
tween successive terms. We can define 
TAN(X) = SIN(X)/COS(X), which saves 


finding a power series expansion for it. 


Four functions 


: EqualsPressed 
180 = plus, minus, times, divide : OperatorPressed 


Listing four is a four-function calcula- 
tor. One point to note is the way the pro- 
gram handles the input of decimal num- 
bers. As you type in each digit of anumber, 
it shifts the number left by one place and 
stores the new digit at the right-hand end. 
If you come to the end of a number and 
press the equals key (or whatever) without 
keying ina decimal point, then the number 
is an integer and must be shifted left DECI- 
MALS places. If you have keyed in a deci- 
mal point, the program must keep a count 
of the number of digits since the point, and 
shift the number left by DECIMALS minus 
this many places. 


igits’ 


, key - 48 


530 IF (ShiftPending <> INTEGER) THEN ShiftPending = ShiftPending - 1 


540 END DEFine 
§50 : 

560 DEFine PROCedure PointPressed 

570 IF ShiftPending <> INTEGER THEN RETurn 
580 PRINT ’./; 

590 ShiftPending = decimals 

600 END DEFine 

610 : 

620 DEFine PROCedure EqualsPressed 

630 TestshiftPending 

640 PRINT ’ = 7; 

650 WorkItout 

660 CALL writenum, 1, accumulator 

670 PRINT 

680 CALL copynum, CurrentNum, accumulator 
690 LastOp = equals 

700 END DEFine 

710 : 

720 DEFine PROCedure OperatorPressed 

730 TestShiftPending 

740 WorkItout 

750 CALL copynum, DisplayedNum, accumulator 
760 CALL SetTod, CurrentNum 

770 LastOp = key 

780 PRINT ‘ ‘; CHRS(key); ‘ ’; 

790 END DEFine 

800 ; 

810 DEFine PROCedure WorkItout 

820 SELect ON LastOp 

830 plus 


Sample output of listing 4 


FOUR FUNCTION CALCULATOR 
Maximum integer part = 60 digits 
Maximum fraction part = 20 digits 


2 * 2 = .4.090000000000000000000 
* 4 = 16.00000000000000000000 
* 16.™ .256,00000000000000000000 
* 256. =. 65536.00000000000000000000 
* 65536. = 4294967296 .00000000000000000000 
/ 1234867.398457698656934563465 = 3478.92492654961640114310 


1211222122 *®° 12212111121121111111 = 1234567902211111110987654321 . coOCO0D00000000 
11223344 * 44332211 = 497555654333584 . 00000000000 000000000. 

122333444 * 4444333221: = 543690589208543124.00000000000000000000 

555555555 °* 4446444444 = 246913579753086420. 00000000000000000000 


3.14159265358979323846 / 2 = 1.57079632679489661923 

/ 2 = 0.78539816339744830961 

* 8 = 6.28318530717958647688 

/ 2 = 3.14159265358979323844 4 
999999999 * 999999999 = 999999992000000001. 00000000000000000000 


call add_, DisplayedNum, CurrentNum 


840 minus : call subtract, DisplayedNum, CurrentNum 
850 times +: call multiply, DisplayedNum, CurrentNun 
860 divide : call division, DisplayedNum, CurrentNum 


870 END SELect 
880 END DEFine 


690 : 

900 DEFine PROCedure TestshiftPending 

910 IF ShiftPending = INTEGER THEN 

920 CALL ShiftLeft, CurrentNum, Decimals 

930 ELSE 

940 CALL ShiftLeft, CurrentNum, ShiftPending 
950 END IF 

960 ShiftPending = INTEGER 

970 END DEFine 

980 : 
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Systemati 
Programm 


Listing 1 


In part of his 
machine code tutorial, 
Alan Bridewell adds 
more screen control 


3 ERE IE TE TEE IEEE TE TE HE He TE AE TE HEHEHE FE 9 HE SE SEH HE TEE TE FE TEE DE FET TEE EE HE HE TE ESE JE EF RE 9 0 8 9 0 9 0 2 ee 
; *POINT’ 

Hy FE AE TE TE TE HE HE TE TE TEE ee FE REE HF He FETE FETE HAE TE TE FEE SEE J A SEE FTE TEE HE HE FE FEF JEJE 48 2 0 
3 THIS ROUTINE PLOTS A POINT IN THE WINDOW USING GRAPHICS COORDINATES. 

3 EACH COORDINATE IS ENTERED AS TWO INTEGERS, AND THE COORDINATE IS THE 
3 
; 
3 
3 


RESULT OF THE F.P. DIVISION OF THE FIRST INTEGER BY THE SECOND. 
THE FOUR PARAMETERS ARE ENTERED IN THE INTEGER TABLE 


PUT RI STACK SO BELOW TOP OF DATA SPACE. 


commands. «POINT LEA.L —50(AS) ,Al 3; RI STACK ON Ai 
3 
3 MAKE ROOM FOR 1ST INTEGER 
SUBG. tL #2,A1 3 INTEGER = 2 BYTES 
3 PUT FIRST INTEGER ON RI STACK 
n this series, we are building up a uakiaee S8ie.P MOVE. W PXA,O(AG,A1.L) 
. ; oP. 
library of small chunks of assembler movea #8,D0 ; #RI_FLDAT ON DO 
language code. Each of these will do a MOVE. W $11C,A3 5 RI_EXEC ON AS 
JSR (AZ) 


recognisable job within a program and 


p ° REPEAT FOR 2ND INTEGER 
be fully annotated, so that it will be clear 


SUBR.L #2,A1 


exactly how to join them to other chunks to MOVE. W PXB,0(A6,A1-L) 
make a program and, in particular, how to oo ie 
make any necessary changes to make the 3 NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE X COORD ON RI STACK, 
chunks fit together. MOVEQ #$10,D0 5 #RI_DIV ON DO 
. . JSR (AS) 
In this part, we are going to look at some USE NEXT LINE IF A NEGATIVE X COORDINATE IS REQUIRED 


more screen control commands. These 
are the ones concerned with interesting 
things like plotting points, lines, arcs, el- 


JSR NEGATE 


NOW REPEAT THE WHOLE THING FOR THE Y COORDINATE 
MAKE ROOM FOR 1ST INTEGER 


i i . m- SUBOQ.L #2,A1 

lipses and circles on the screen aie : Se en 

pared with the other commands, dealt witt MOVE.W PYA,O(AS,A1-L) 

in part 3, these have two additional compli- 3 CONVERT TD F.P. 

cations MOVES #8,D0 } #RI_FLOAT ON DO 

: . es JSR (A3) 

Each screen window has a pair of 'graph- } REPEAT FOR 2ND INTEGER 

ics coordinates’, x and y. By default, when ——s ap sb cat 

a window is first opened, the bottom left MOVER mt °° 

hand corner of the window is the origin JSR (A3) 

(x=0 y=0) The vertical scale of the win- 5 NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE Y COORD ON RI STACK. 
Ree en, ee : MOVEQ #$10,D0 5; #RI_DIV ON DO 

dow is 100 units, which means the top left JSR (A3) 

hand corner is the point x=0, y=100. The USE NEXT LINE IF @ NEGATIVE X COORDINATE IS REQUIRED 


JSR NEGATE 


horizontal scale is the same size as the 
vertical scale, so the maximum x value will 


NOW PLOT THE POINT 


depend on the width compared with the MOVE: | S77) GAO : mae Go ae ee 
height. This is all true, regardless of the MOVEQ #$30,D0 ; #SD.POINT ON DO 
size and shape of the window, but these MOVE . Wi #SFFFF,DS 3 INFINITE TIMEQUT 
actual values can be altered using the —_ ae a eee on eee Seon 
SCALE command. So the origin can be BRA.S NEXTBIT 5 SKIP OVER INTEGER TABLE, ETC. 
placed at any point in the window (or  ecreumn Sek 
outside, if required), and the vertical scale PXA Dc.wW 10 ; 2ST INTEGER OF x 
can be made any value required. ya gh . 3 ried edad : 

When we draw points, lines, arcs, el- PvE rosea : ; GR BiKEGER oes 


lipses or circles in a window, the parameters 
we use refer to the coordinate system for 


3 
3; SUBROUTINE TO NEGATE F.P.NUMBER TOS ( DELETE IF NOT NEEDED ) 


the window, as defined by "SCALE’, or | ““ES*TE = tet Shae ER Re 
using the default values if "SCALE' has not RTS 


been used. For example, this means that 
when we draw acircle in a window, the size 


; 
PSR E EHH RHEE ERE EER HEE REE EE EERE ERE EER EEE 
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Listing 2 


9-6-9 98 98-98 0 8 EE EEE TEE FE FE REITER TICE IEEE IEEE TE DEAE REESE FE a 
H "LINE * 

9 IEEE IIE III EEE 
3 THIS ROUTINE PLOTS A LINE IN THE WINDOW USING GRAPHICS COORDINATES. 

} EACH COORDINATE IS ENTERED AS TWO INTEGERS, AND THE COORDINATE IS THE 

3 RESULT OF THE F.P. DIVISION OF THE FIRST INTEGER BY THE SECOND. 
5 
5 
3 
i 
5 


THE PARAMETERS ARE ENTERED IN THE INTEGER TABLE. 


PUT RI STACK SO BELOW TOP OF DATA SPACE. 
LINE LEA.L -SO0(AS) ,A1 3 RI STACK ON Al 


MAKE ROOM FOR 1ST INTEGER 
SUBQ.L #2,A1 } INTEGER = 2 BYTES 
; PUT FIRST INTEGER ON RI STACK 
MOVE. LX108,0(A6,AL.L) 
3 CONVERT TO F.P. 
MOVER #8, DO 3 #RI_FLDAT ON DO 
MOVE. W $11C,A3 5 RI_EXEC ON AS 
JSR (AS) 
REPEAT FOR 2ND INTEGER 
SUBQ.L #2,A1 
MOVE.W LX1B,0(A6,A1.L) 


| ; : : MOVEQ #8,DO 
of the circle will depend on the size of the JSR (a3) 
window and its scale, as well as the circle pee STs Pt igen aa 
parameters. Using the same circle param- JSR (a3) ze 
eters in different windows will, in general, USE NEXT LINE IF A NEGATIVE K COORDINATE IS REQUIRED 
result in different sized circles. = ae 
The second complication is that all these NOW REPEAT THE WHOLE THING FOR THE Y CODRDINATE 
| parameters have to be entered as real or MAKE ROOM FOR {ST lay wer 
floating point numbers, rather than the PUT FIRST INTEGER ON RI STACK 
integers we have used up to now. Be- icity ake MOVE.W = LYIA,0(A6,A1.L) 
cause the microprocessor in the QL can re aoe #8, Do 5 #RI_FLOAT ON DO 
only handle integers directly, these com- JSR (A3) 
mands have to use the Qdos arithmetic REPEAT FOR 2ND a i= | Wena 
routines, which handle floating point MOVE.W LY1B,0(A6,A1.L) 
numbers. MOVEQ #8, DO 
H JSR (AS) 
Why the need for these extra complica- NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE Y COORD ON RI STACK. 
tions? Well firstly, the pixels on the QL MOVEQ #$10,D0 4 #RI_DIV ON DO 
j JSR (AS) 
aioe tos i eee poe gs USE NEXT LINE IF A NEGATIVE Y COORDINATE IS REQUIRED 
; JSR NEGATE 
means that, working in pixel coordinates, 
it would be rather difficult to draw, say, a Oe ee ee ce Tie Sa Go 
perfect circle. If the circle was perfect in SUBQ. L. #2,AL 
one mode, it would no longer be so in the PUT FIRST INTEGER 5 A ATOR ets ine 
other mode. Using graphic coordinates CONVERT TO F.P. aa 
gets over this problem. Secondly, we often #8,D0 3 #RI_FLOAT ON DO 
need parameters which are not whole cera ‘risk Ditch TRTEBER ‘ne? 
numbers. For instance, to draw a semicir- SUBQ.L #2,A1 
cle with the ARC command requires an pen - a tamale 
angle of pi radians, 3.14#. .. 49R (As) 
Clearly, we need to use floating point NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE x COORD ON RI STACK, 
numbers MOVEQ ##10,D0 3; #RI_DIV ON DO 
7 JSR {AS) 
] . USE NEXT LINE IF A NEGATIVE X COORDINATE IS REQUIRED 
Floating points TSR tate 
. NOW REPEAT THE WHOLE THING FOR THE Y COORDINATE 
The graphics traps use a parameter ta- MAKE ROOM FOR 1ST INTEGER 
H i SUBR.L #2,A1 
! ble of floating point numbers, much the by! CEE TITRE Gun ere EC 
same way as, say, the BLOCKFILL com- MOVE. W LY2A,0(A6,AI-L? 
mand uses a parameter table of word CONVERT TO F.P. cone meee enc dicate Gb 
integers. Soin theory we should be able to as tans eS 
use the same format as before, except we REPEAT FOR 2ND INTEGER 
¥ i j j SUBR.L #2,A1 
enter floating point parameters in a float- AWELE.  LyeneObMinwLa 
ing point parameter table. If only things MOVEQ #9,D0 
Se SSE AXEL DES ae Pe ieee DE ONE F Pp. NUMBER BY THE OTHER TO LEAVE Y COORD ON RI STACK 
; ; NOW DIVI FP. . 
floating point representation of numbers ROUED ##10,D0 5 #RI_DIV ON DO 
that the QL uses bears no obvious rela- JSR (A3) 
tionship to the real number. Entering USE NEXT LINE IF A —o —. 1S REQUIRED 
floating point numbers in a parameter ta- : 
ble would be a real pain. So how do we NOW PLOT THE LINE he dic ph aid is nausea ee 
MDVE.L (A7) , AG x 
overcome the problem? : ' CONSOLE CHANNEL ID IN AO 
My solution is this. Each required number MOVEQ #$31,D0 #SD.LINE ON DO 
is treated as the result of the division of one py #$FFFF DS 5 Soe wt atone’ a ptei di 
| integer by another. For instance, pi canbe eat 
represented as 3142 and 1000. By divid- BRA.S NEXTBIT SKIP OVER INTEGER TABLE, ETC.» 
| ing the first by the second we get 3.142, pi 
43 
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correct to three decimal places. To get pi 
on my floating point table, | do the follow- 
ing: 

1. Enter 3142 and 1000 as two word 
integers in an integer table. 

2. Use the QL arithmetic package to 
convert them into floating point numbers. 

3. Use the QL arithmetic package to 
divide one by the other to give 3.142. 

4. Arrange that when this has been done, 
the resulting floating point number is in the 
correct place in the required floating point 
parameter table. 


Negative parameters 


One further complication: we may need 
our floating point parameter to be nega- 
tive. The obvious way to deal with this 
would be to make the first integer negative. 
Making the first integer -3142 and the 
second 1000 would give us minus pi. 
Unfortunately, it doesn't work. To be pre- 
cise, it seems to work when the required 
parameter is a negative angle, but not if it 
is a negative x or y coordinate. Why this 
should be so is acomplete mystery to me. 
When | assemble the code and trace it in 
single steps, it always works; if | SEXEC 
the code and then EXEC the program, it 
always crashes. Perhaps | have missed 
something. If you can see what is wrong 
perhaps you can let me know. On the 
other hand, perhaps I've found a Qdos 
bug. | wonder . . . 

Anyway, there is another solution which 
does seem to work. All we do is use 
positive integers, and then use the arith- 
metic package to negate the floating point 
number. 

The QL arithmetic package does a great 
deal which we do not really want to con- 
sider at this stage. This will be the subject 
of alater part when we look at dealing with 
all the various arithmetical processes it 
can do. For the moment we shall limit 
ourselves to what is necessary to handle 
the graphics traps. 

Execution of an arithmetic operation is a 
‘vectored utility’. The vector $11C is put 
into an address register, say A3. This 
vector contains the address of the subrou- 
tine, so a JSR (A3) will jump to the routine. 
For the routine to work properly, other 
registers must have the correct setting 
beforehand. 


Execution 


Register DO requires a word to say which 
arithmetic operation is to be executed. For 
instance, #$10 in DO will cause a divide. 
The floating point number on top of the 
stack will divide into the next floating point 
number on stack. The floating point result 
will be left on the stack in place of the two 
original numbers. However, this is not the 
normal stack but a special one. More 
about this in a moment. 

Register A4 should point to the base of 
the data area. We don't need to do any- 
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3 
3 


3 
3 


thing about this because when we EXEC 
a program, the base address of the data 
area automatically goes into A4. 


3 
3 
3 
5 
3 
3 
s 
; 
3 
3 
3 
i 
; 
; 


-LX14 DcC.wW io 3 1ST INTEGER OF Xi 
-LX1B DC.W 1 3 2ND INTEGER OF x1 
«LYiA DC.wW 20 ; 1ST INTEGER OF Y1 
»-LYIB Dc.wW 1 5 2ND INTEGER OF Y1 
+L X2A be.wW 100 3 1ST INTEGER OF X2 
-LX2B DC.W 1 3 2ND INTEGER OF X2 
«LY2A DcC.W 50 3 1ST INTEGER OF Y2 
»«LY2B DC.wW 1 3 2ND INTEGER OF Y2 


; 
« NEGATE 


Listing 3 


INTEGER TABLE 


SUBROUTINE TO NEGATE THE F.P. NUMBER TOS 


MOVED 
JSR 
RTS 


##14,D0  ; 
(a3) 


RI_NEG IN DO 


FEAR HE TE FE RH te HE JE SE JE JE EE JEJE SE SE SEE Se J PE EAE HH EE FE FETE TE 4 00 HE ESE SE 9 EE EB TEE FE FE 30 FE IE HE HE IE HE JE DE HE HE HE HEHE EH EE 


Register A1 needs to point to the special 
stack needed for the arithmetic data, usu- 
ally called the RI stack. We have to decide 


i dehiiahatehatahedeheteheliehaietisdalahsdtedabeisdddd dah debhadahedaddedbetatdsddedadeted att tL CG 
“ARC * 

FEET IEE FE AE SEE JE EE EE TEE FE FETE TE HEE TEE FE EIEIO 3 JE JES EJ JE EE JE EE ERIE SE HE HE IE 8 J ab at 

THIS ROUTINE PLOTS AN ARC IN THE WINDOW USING GRAPHICS COORDINATES. 

THE SD.ARC TRAP REQUIRES 5 PARAMETERS, THE X AND Y COORDINATES OF THE 

ENDS OF THE ARC, AND THE ANGLE (IN RADIANS) SUBTENDED BY THE ARC. 

EACH PARAMETER IS ENTERED AS TWO INTEGERS, AND THE RESULT OF THE F.P. 

DIVISION OF THE FIRST INTEGER BY THE SECOND GIVES THE REQUIRED 

PARAMETER (COORDINATE OR ANGLE). 

THE 10 INTEGERS ARE ENTERED IN THE INTEGER TABLE 


PUT RI STACK SO BELOW TOP OF DATA SPACE. 


ARC LEA.L ~SO(AS) Al 3 RI STACK ON Al 
MAKE ROOM FOR 1ST INTEGER 
SUBa.L #2,A1 3 INTEGER = 2 BYTES 


PUT FIRST INTEGER ON Ri STACK 
MOVE .W AX1A,0(A6,A1.L) 
CONVERT TO F.P. 
MOVED #8,D0 } #RI_FLUAT ON DO 
MOVE. W $11C,A3S3_-_RI_EXEC ON AS 
JSR (A3) 
REPEAT FOR 2ND INTEGER 
SUBQ.L #2,A1 
MOVE. AX1B,0(A6,A1-L) 
MOVEQ #8,D0 
JSR (A) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE X COORD ON RI STACK. 


MOVEQ #$10,D0 3 #RI_DIV ON DO 
JSR {A3) 

USE NEXT LINE IF A NEGATIVE X COORDINATE IS REQUIRED 
JSR NEGATE 


NOW REPEAT THE WHOLE THING FOR THE Y COORDINATE 
MAKE ROOM FOR 1ST INTEGER 


SUBQ.L #2,A1 
PUT FIRST INTEGER ON RI STACK 
MOVE .W AY1A,0(A6,A1.L) 
CONVERT tO F.P. 
MOVED #8,DO 3 #RI_FLOAT ON DO 
JSR (AS) 
REPEAT FOR 2ND INTEGER 
SURQ.L #2,A1 
MOVE.W AY1B,O(AG6,A1.L) 
MOVEG #8,DO 
JSR (AS) 
NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE Y COORD ON RI STACK. 
MOVEQ #$10,D0 3 #RI_DIV ON DO 
JSR (AS) 
USE NEXT LINE IF A NEGATIVE Y COORDINATE IS REQUIRED 
JSR NEGATE 


‘ 


NOW REPEAT THE WHOLE PROCESS FOR THE COORDS OF THE SECOND POINT 
MAKE ROOM FOR 1ST INTEGER 


SUBQ.L #2,A1 
PUT FIRST INTEGER ON RI STACK 
MOVE. W AX2A,0(AG,A1.L) 
CONVERT TO F.P. 
MOVEO #8,D0 3; #RI_FLOAT ON DO 
JSR (AS) 
REPEAT FOR 2ND INTEGER 
SUBO.L #2,A1 
MOVE. W AX2B,0(A6,A1-L) 
MOVE® #8,D0 
JSR (AZ) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER 10 LEAVE X CBORD ON RI STACK. 
MOVED #$10,D0 3 #RI_DIV ON DO 
JSR {A3) 
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where to put it. Clearly it has to go some- 
where in the program's data area. Register 
A4 points to the bottom of this area auto- 
matically, as we have already said. The top 
of the data area automatically goes in 
register AS when we EXEC aprogram. Our 
RI stack must go somewhere between the 
two. In fact the top of the data area (in A5) 
is also the top of the normal stack for the 
program, so we need to leave enough 
space below that for that stack. However, 
if we go too far down towards the address 
held in A4, we may interfere with other 
uses of the data area. It appears that 50 
bytes is more than enough space for the 
normal stack, so if we put the top of the RI 
stack at 50 bytes below the address in A5, 
that should leave enough normal stack 


3 dsr NEGATE 


i 
j NOW REPEAT THE WHOLE THING FOR THE Y COORDINATE 


3 MAKE ROOM FOR 1ST INTEGER 


3 NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE Y COORD ON RI STACK. 


SUBR.L #2,AL 
; PUT FIRST INTEGER ON RI STACK 
MOVE. W 
; CONVERT To F.P. 
MOVEG #8, D0 
JSR (a3) 
; REPEAT FOR 2ND INTEGER 
SUBQ.L #2,A1 
MOVE. W 
MOVEQ #8,DO 
JSR (AZ) 
MOVEQ ##10,D0 
(A3) 


3 USE NEXT LINE IF A NEGATIVE Y COORDINATE IS REQUIRED 


5 JSR 
3 


NEGATE 


5 NOW REPEAT THE WHOLE THING FOR THE ANGLE 


5 MAKE ROOM FOR 1ST INTEGER 


SUBB.L #2,A1 
; PUT FIRST INTEGER ON RI STACK 
MOVE. W 
} CONVERT TO F.P. 
MOVEO #5,D0 
JSR (A3) 
; REPEAT FOR 2ND INTEGER 
SUBR. L #2,Al 
MOVE. W 
MOVED #8,D0 
JSR (AS) 


3 NOW DIVIDE ONE F.P, NUMBER BY THE OTHER TO LEAVE ANGLE ON RI STACK. 


MOVEG #410,D0 


JSR (AS) 
3 USE NEXT LINE IF A NEGATIVE ANGLE IS REQUIRED 
5 , ; JSR NEGATE 
; 
3 NOW PLOT THE ARC 
MOVE. L. (A7),A0 3 OR 4(A7),A0 OR Bt(A7),A0 ETC. 
}; CONSOLE CHANNEE ID IN AO 
MOVEQ #$32,D0 3 #SD.ARC ON DG 
MOVE. W #$FFFF,D3 3 INFINITE TIMEOUT 
ADDA.L AG, AL ; MAKE A1 STACK ABSOLUTE 
TRAP #3 
BRA.S NEXTBIT j SKIP OVER INTEGER TABLE, ETC. 
3 
3 INTEGER TABLE 
-AX1A pc.wW 10 ; 1ST INTEGER OF Xi 
.AM1B bC.W 1 3 2ND INTEGER OF xt 
sAYIA pc.wW 20 3 1ST INTEGER OF Yi 
-AYIE pt.wW 1 3 2ND INTEGER OF Yt 
«AX28 pC.W 100 3; 1ST INTEGER OF x2 
/AK2B pc.w 1 } 2ND INTEGER OF X2 
/AY2A DC.W so } 1ST INTEGER OF Y2 
.AY2B DC.wW 1 } 2ND INTEGER OF Y¥2 
. ANGLEA DC.W 3142 ; 1ST INTEGER OF ANGLE 
DC. W 1000 3 2ND INTEGER OF ANGLE 


.» ANGLEB 


5 
5 SUBROUTINE TO NEGATE THE F.P. NUMBER TOS 


i 
. NEGATE 


MOVER ##14,D0 
JSR (AS) 
RTS 


3 SHEER AA ERA RHEEE PEE REE ERR RRR HRKHRRKRA KHER SESH RH AHRHHRRAA RAK EERRRRRHRERER 
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3 USE NEXT LINE IF A NEGATIVE X COORDINATE IS REQUIRED 


AYZA,0(86,A1.L) 


AY2B,9(A6,AL.L? 


ANGLEA,O(AS,A1.L) 


ANGLEB,O(AG6,AL.L) 
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space. 

The only problem then is to make sure the 
data space left is big enough for the Rl 
stack plus any other call that may be made 
on data space. The graphics calls we shall 
make apparently need at least 240 bytes of 
RI stack, which makes 50 + 240 = 290 
bytes for the two stacks. Leave about the 
same again for other use of data space and 
that means we need about 500 bytes at 
least for data space. 

The question of how much data space a 
program needs is very difficult to analyse 
without a very detailed knowledge of ex- 
actly what Qdos is doing. The best policy is 
‘suck it and see’. In other words, start off 
with a big data space. (Assembler Work- 
bench, which | use, defaults to a data 


; #RI_FLOAT ON DO 


3 #RI_DLV ON DO 


} #RI_FLOAT ON DO 


3 #RI_DIV ON DO 


3 RI_NEG IN DO 


space of 4K for SEXEC commands, and 
that is bigger than | have ever needed.) If 
everything works OK and if you feel you 
may need the unused space, you can 
experiment with smaller data spaces until 
you find the smallest that seems to work. 

The only other point we need to make is 
about register D7. Apparently this should 
be set to 0 in Qdos versions 1.03 and 
earlier, so if you have a very old QL you 
may need to bear it in mind. However, | 
shall ignore it. 


Reverse order 


This is all (and | think it's quite enough 
for now!) we need to concern ourselves 
with about arithmetic operations. We now 
need to consider the matter of using the 
arithmetic package to turn our initial in- 
teger table into the floating point table 
that the graphics traps require. This is 
done by obeying a simple rule. We carry 
out our arithmetic operations to put items 
on the stack in the reverse order. This 
means the last parameter we add, which 
is the first one we need, will be at the top 
of the stack and also, therefore, at the top 
of the parameter. 

There is one last complication which 
needs to be dealt with before we can look 
at the listings. | said earlier that register 
A4 points to the base of the data space, 
and register AS to the top of the data 
space. This is not strictly true. What ac- 
tually happens is this: register A6 points 
to the base of the job (ie the program 
area). Registers A4 and A5 contain offsets 
from this to point to the bottom and top of 
the data space. So to get the true ad- 
dresses of the bottom and top of the data 
space, we need to add the address in A6 
to A4 and A5. Since our RI stack was 
obtained by subtracting a number from 
register A5 and putting it in register A1, 
then clearly we need to add the address 
in A6 to get the true address of our RI 
stack. 


Adding addresses 


Up to this point, this fact has been of no 
real consequence. But now we are going 
to put data onto the RI stack, ready to be 
used by the arithmetic package, so we 
need a command which takes the offset 
into account. Instead of using the com- 
manda: : 


MOVE.W DATA,A1 


which we might have expected, we must 
use: 


MOVE.W DATA,0 (A6,A1.L) 


which will add the address in A6 to the 
offset in A1 to find the correct address. 
Furthermore, when we make our graphics 
trap call, the trap needs the true address in 
Ai, not the offset. So before making the 
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trap call, we must add the address in A6 to 
it, with the command: 


ADDA,L A6,A1 


There is an alternative to this, by the way. 

It is to make a TRAP 4 call just before the 

TRAP 3. TRAP 4 has no parameters and 

no error returns. | don't use it because it 

does something slightly different when 

preceding a TRAP 2 call and a TRAP 3 call 

| and | like, as far as possible, the code to 
say exactly what it is doing. 


Look at listings 


Now to look at the listings. As with all the 
previous screen handling traps, AO must 
hold the channel ID, and D3 must hold the 
timeout. As this is the same for all the 
listings, we shall not mention it again. We 
shall look at the first listing in detail, and 
skip over the same points as they are 
repeated in the other listings. 

POINT (Listing one) will plot a point in 
the window using graphics coordinates. 
The SD_POINT trap requires the Y coordi- 
nate (floating point) on the top of the RI 
stack, and the x coordinate (floating point) 
next. We are going to calculate these from 
two word integers in an integer table, so the 
table requires two word integers for the x 
coordinates and two for the y coordinates 
of the point, making four integers in all. 

First we load the address offset for our RI 
stack in A1. 

Next we deal with the x coordinate. (Re- 
member, we do them in reverse order.) 

We want to add the first integer to the RI 
stack. When the arithmetic package uses 
the RI stack it automatically adjusts the 
stacker pointer as numbers are added or 
removed. But if we are going to simply use 
a command to put data in an address, we 
must move the RI stack pointer ourselves. 
So first we subtract 2 from the RI stack 
pointer to make room for the integer, be- 
fore moving the first integer onto the RI 
stack. Then we call the arithmetic package 
to convert it to floating point. We now 

| repeat this for the second integer (ie move 
the Rl stack pointer, move the next integer 
onto the RI stack, and convert to floating 
point). 


Negative line 


The RI stack now holds an FP version of 
the second integer on top and an FP ver- 
sion of the first integer below. So we use 
the arithmetic package to divide one by the 
other, to leave an FP version of the x 
coordinate on the RI stack. If we need a 
negative x coordinate, we use the next line 
tojump to a subroutine to get the arithmetic 
package to make it negative. (This line 
appears in all the listings wherever a pa- 
rameter might need to be negative — which 
is most of them! So we shall not mention 
this again.) 

If we repeat this whole process for they 


Listing 4 


FIRE ISSIR TEER EI ROE IOI Hee rete ee 
‘ELLIPSE’ 

(HEE TE EE FEE EEE EE JE IE EE 26 JE JE EE FE PEE EEE EEE IEEE HET FETE REI EET SEE IIE JE EI EEE Hee fee 

THIS ROUTINE PLOTS AN ELLIPSE IN THE WINDOW USING GRAPHICS COORDINATES. 

THE SD.ELIPS TRAP REQUIRES 5 F.P. PARAMETERS, THE X AND Y COORDINATES 


OF THE CENTRE, THE ECCENTRICITY, THE RADIUS, AND THE ROTATION ANGLE. 
EACH PARAMETER IS ENTERED AS TWO INTEGERS, AND THE PARAMETER IS THE 
RESULT OF THE F.P. DIVISION OF THE FIRS?F INTEGER BY THE SECOND. 

THE 10 INTEGERS ARE ENTERED IN THE INTEGER TABLE. 


PUT RI STACK SO BELOW TOP OF DATA SPACE. 


-ELLIPSE LEA.L 


MAKE ROOM FOR 1ST INTEGER 
SUBQ.L 


-50(AS) ,Al 3 RI STACK ON Al 


#2,A1 


PUT FIRST INTEGER ON RI STACK 


MOVE.W 
CONVERT TO F.P. 


REPEAT FOR 2ND INTEGER 
SUBE.L 
MOVE.W 
MOVED 
JSR 


EXA,0(A6,A1.L) 


#8,D0 
$11C,A3 
(a3) 


} #RI_FLOAT ON DO 
; RI_EXEC ON AS 


#2,A1 
EXB,0(AG,AL.L) 
#a,D0 

(a3) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE X COORD ON RI STACK. 


MOVEQ 
JSR 


#$10,DO 3 #RI_DIV ON DO 
(A3) 


USE NEXT LINE IF A NEGATIVE X COORDINATE IS REQUIRED 


JSR 


NEGATE 


NOW REPEAT THE WHOLE THING FOR THE Y COORDINATE 


MAKE ROOM FOR 1ST INTEGER 


SUBD. L 


#2,A1 


PUT FIRST INTEGER ON RI STACK 


MOVE.W 
CONVERT TO F.P. 
MOVEQ 
JSR 
REPEAT FOR 2ND INTEGER 
SUBa.L 
MOVE .W 
MDVER 
JSR 


EYA,0(AG,A1.L) 


#8,D0 
(AS) 


3 #RI_FLOAT ON DO 


#2,01 
EYB,0(A6,A1.L) 
#8 ,DO 

(AS) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE Y COORD ON RI STACK. 


MOVE 
JSR 


##10,D0 
(AS) 


5 #RI_DIV ON DO 


USE NEXT LINE IF A NEGATIVE Y COORDINATE 15 REQUIRED 


JSR 


NEGATE 


NOW REPEAT THE WHOLE THING FOR THE ECCENTRICITY 
MAKE ROOM FOR 1ST INTEGER 

SUBQ.L #2,A1 
PUT FIRST INTEGER ON RI STACK 


MOVE. W 
CONVERT TO F.P. 

MOVED 

JSR 
REPEAT FOR 2ND INTEGER 

SUBQ@.L 

MOVE. W 


MOVE 
JSR 


ECCA,0(A6,AtL.L) 


#9,,D0 
(A3) 


3 #RI_FLOAT ON DO 


#2,A1 
ECCB,O(AS,A1.L) 


#8,D0 
(a3) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER 1O LEAVE ECCEN. ON RI STACK, 


MOVED 
JSR 


#$10,D0 
{a3} 


3 #RI_DIV ON DO 


NOW REPEAT THE WHOLE THING FOR THE RADIUS 


MAKE ROOM FOR 1ST INTEGER 


SuUBO.L 


#2,A1 


PUT FIRST INTEGER ON RI STACK 


MOVE .W 
CONVERT TO F.P. 
MOVER 
JSR 
REPEAT FOR 2ND INTEGER 
SUBR.L 
MOVE. W 
MOVE 
JSR 


RADIUSA,O(A6,A1.L) 


#8,D0 3 #RI_FLOAT ON DO 
(AS) 


#2,A1 
RADIUSB,O(AS,AL.L) 
#8 ,D0 

(a3) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE RADIUS ON RI STACK. 


MOVEQ 
JSR 


#$10,D0 
(As) 


; #RI_DIV ON DO 


3 
3 NOW REPEAT THE WHOLE THING FOR THE ANGLE OF ROTATION 


3 MAKE ROOM FOR 1ST INTEGER 


SUBR.L 


#2,A1 


PUT FIRST INTEGER ON RI STACK 


MOVE. W 


CONVERT TO F.P. 
MOVER 
JSR 


ROTA,O(AG,AL.L) 


#8,D0 
(a3) 


3 #RI_FLOAT ON DO 
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3 REPEAT FOR 2ND INTEGER 
SUBE.L 
MOVE .W 
MOVED 
JSR 


#2,A1 


#8 ,DO 
(A3) 
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ROTB,O(AS,A1.L) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE ROTATION ON RI STACK. 


MOVEQ #%10,D0 
(AS) 
USE NEXT LINE IF A NEGATIVE 

JSR NEGATE 
NOW PLOT THE ELLIPSE 


(A7) ,A0 


#33 ,D0 
#$FFFF DS 
A&,AL 
#3 
NEXTBIT 


i 

5 INTEGER TABLE 
»EXA 
~EXB 
-EVA 
-EYB 
»ECCA 
.ECCB 
-RADIUSA 
»RADIUSB 
«ROTA 
.»ROTB 


10 

1 

20 

1 

2 

1 

20 

1 
3142 
4000 


EEEEEEEEEE 


SESSSSS888 


3 #RI_DIV ON DO 


ANGLE IS REQUIRED 


OR 4(A7),A0 OR B(A7) ,AO ETC. 
3 CONSOLE CHANNEL ID IN AQ 

#SD.ELIPS ON DO 

INFINITE TIMEOUT 

MAKE Al STACK ABSOLUTE 


SKIP OVER INTEGER TABLE, ETC. 


isT 
2ND 
1ST 
2ND 
1ST 
2ND 
1sT 
2ND 
1sT 
2ND 


INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 


OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 


CENTRE X 
CENTRE X 
CENTRE Y 
CENTRE Y¥ 
ECCENTRICITY 
ECCENTRICITY 
RADIUS 
RADIUS 
ROTATION 
ROTATION 


s 
SUBROUTINE TO NEGATE THE F.P. NUMBER TOS 


‘NEGATE MOVER 
JSR 


RTS 


#%14,D0 
{AS} 


Hy 


coordinate, we shall finish up with the FP 
version of the y coordinate on top of the RI 
stack, and the FP version of the x coordi- 
nate below it, which is precisely what is 
required for the SD_POINT trap. 


True stack pointer 


| So to the final steps. We move $30 into 
DO for the SD_POINT trap call. We add the 
address in A6 to A1 to get the true RI stack 
pointer in A1, and then make the TRAP 3 
call. All being well, the point will now be 

| plotted. Finally, we branch to the next bit of 
code to skip over the integer table and 
NEGATE subroutine (if it hasn’t been de- 
leted because it was not needed. 

LINE (Listing two) will plot a line in the 
window using the graphics coordinates. 
SD_LINE requires four floating point pa- 
rameters on the RI stack, as follows, start- 
ing from the top of the stack: 


y coordinate of the end of the line 
x coordinate of the end of the line 
y coordinate of the start of the line 
x coordinate of the start of the line 


As these FP numbers are going to be 
calculated from two integers each, we need 
an integer table with eight-word integers 
on it. 

First we load the address offset for our RI 
stack into A1. 

Next we process the integers into FP 
numbers, in exactly the same way as in 
POINT. Again, we do them in reverse or- 
der, to get the four FP parameters on the RI 
stack. 
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; RI_NEG IN DO 


RE RE DE HE EB i HH a HE HE HE HEE a a A J 4 EJ EE 


Finally we put $31 in DO, correct the RI 
stack pointer in A1 and make the trap call 
to plot the line, before branching to the next 
bit. 

ARC (Listing three) plots an arc in the 
window using graphics coordinates. 


Listing 5S 


SD_ARC requires five FP parameters on 
the RI stack, as follows, starting with the 
top of the RI stack. 


angle (in radians) subtended by the arc 
y coordinate of the end of the arc 
x coordinate of the end of the arc 
y coordinate of the start of the arc 
x coordinate of the start of the arc 


With two integers for each FP number, 
the integer table contains 10 integers. 

As with POINT and LINE, they are proc- 
essed in reverse order to get the five FP 
parameters on the RI stack in the correct 
order. 


Trap call 


Finally we make the trap call as before, 
this time with $32 in DO for SD_ARC trap 
call. 

ELLIPSE (Listing four) plots an ellipse 
or circle in the window using graphics co- 
ordinates. SD_ELIPS requires five FP pa- 
rameters on the RI stack, as follows, starting 
with the top of the RI stack: 


rotation angle (in radians) of the major axis 
(this is ignored if a circle is plotted) 
radius of the ellipse (length of the minor 
axis) 

eccentricity of the ellipse (ratio major/mi- 
nor axes. (This is 1 for a circle.)) 

y coordinate of the centre 

x coordinate of the centre 


FETE TE TE HEHE FETE TE He TE ETE TE TE TET ETE ETE TEE TEE HE TE HE ETE FETE TE HEHE PEE HE TE TE HEHE DE SE HE SE JE J J HE EE Dd a 


‘SCALE * 


AE TE TEETER IRAE IETF TE III FETE TEI FTE FIER IIE IEIE IH EI E 
THIS ROUTINE SETS THE SCALE AND ORIGIN FOR GRAPHICS COORDINATES 

THE SD.SCALE TRAP REQUIRES 3 F.P. PARAMETERS, THE X AND Y COORDINATES 
OF THE BOTTOM LEFT CORNER OF THE WINDOW AND THE HEIGHT OF THE WINDOW 


THE LENGTH OF THE Y AXIS. 


EACH PARAMETER I5 ENTERED AS TWO INTEGERS, AND THE PARAMETER 1S THE 


RESULT OF THE F.F, 


DIVISION OF THE FIRST INTEGER BY THE SECOND. 


THE 6 INTEGERS ARE ENTERED IN THE INTEGER TABLE 


PUT RI STACK SO BELOW TOP OF DATA SPACE. 


i 
5 
i 
3 
3 
5 
3 «£.E. 
3 
i 
3 
i 
i 


» 8CALE LEA.L 


FIX THE HEIGHT OF 
MAKE ROOM FOR 1ST 


THE WINDOW 
INTEGER 
SUBG.L #2,AL 
ON RI STACK 
MOVE. W 


PUT FIRST INTEGER 


CONVERT TO F.P. 
MOVED 
MOVE. W 
JSR 


REPEAT FOR 2ND INTEGER 
SUBQ.L 
MOVE .W 
MOVE 
JSR 

NOW DIVIDE ONE F.P. 
MOVED 
JSR 


#8,D0 
#11C,AS 
(AB) 


#2,A1 


#8,DO 
(AS) 


#10,D0 
(a3) 


NEXT FIX THE ORIGIN 
MAKE ROOM FOR 1ST INTEGER 
SUBD. L #2,A1 
PUT FIRST INTEGER ON RI STACK 
MDVE. 
CONVERT TO F.P. 
MOVEQ 
JSR 


#8,DO 
(Az) 


—SO(AS) ,Al 


NUMBER BY THE OTHER 


3 RI STACK ON Al 


3 INTEGER = 2 BYTES 


HEIGHTA,O(AS6,A1.L) 


3 #RI_FLOAT ON DO 
3 RI_EXEC ON AZ 


HEIGHTB,O(A6,A1.L) 


TO LEAVE HEIGHT ON RI STACK. 
; #RI_DIV ON DO 


SXA,0(A6,A1.L) 


3 #RI_FLOAT ON DO 
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3 REPEAT FOR 2ND INTEGER 
SUBa.L 
MOVE.W 
MOVER 

JSk 
NOW DIVIDE ONE F.P. 
MOVE 

JSR 


#2,A1 


#3,D0 
(AS) 


##10,D0 
(a3) 


USE NEXT LINE IF A NEGATIVE X COORDINATE IS REQUIRED 


JSR NEGATE 


NOW REPEAT THE WHOLE THING FOR THE Y COORDINATE 


MAKE ROOM FOR 18ST INTEGER 
SUBQ.L #2,A1 
PUT FIRST INTEGER ON RI STACK 
MOVE.W 
CONVERT TO F.P. 
MOVE 
JSR 
REPEAT FOR 2ND INTEGER 


#8 ,D0 
(A3) 


42,01 


SYB,O(AG,A1.L? 


#8,DO 
(AS) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE Y COORD ON RI STACK. 


MOVEG 
JSR 


#310,D0 
(AS) 


USE NEXT LINE IF A NEGATIVE Y COORDINATE IS REQUIRED 


JSR NEGATE 
NOW SET THE SCALE AND ORIGIN 
MOVE. L (A7) ,AO 
mMoVEQ 
MOVE. W 
ADDA.L Ab, AL 
TRAP #3 
BRA.S NEXTBIT 


##34,DO 


3 

3 INTEGER TABLE 
«HELGHTA 
»HEIGHTB 

«BXA 

~SXB 

«SYA 

~5YB 


DC.W S00 
DC.W i 
DC.W 10 
pc.wW 1 
DC.W 20 
pc.W 1 


5 
3 SUBROUTINE TO NEGATE THE F.P. 


‘NEGATE MOVER 
JSR 


RTS 


##14,D0 
(AS) 


Fy We AEP HE EERE eH eS EE HP RE EH EE EE Ek BE HERE IE EE JE 40 JE EE HE aE EE i it EE EEE HE 


With two integers for each FP number, 
the integer table contains 10 integers. 

As with POINT, LINE and ARC, they are 
processed in reverse order to get the five 
FP parameters on the RI stack in the cor- 
rect order. 

Finally we make the trap call as before, 
this time with $33 in DO for SD_ELIPS trap 
call. 


Coordinate change 


SCALE (Listing five) will alter the 
graphic coordinates of the bottom left cor- 
ner of the window, and also the graphics 
units for the height of the window. By 
default, these are set to (0,0) and 100 
respectively when the window is first 
opened. SD_SCALE requires three FP 
parameters on the RI stack, as follows, 
starting with the top of the RI stack. 


y coordinate of the bottom of the window 
x coordinate of the left hand edge of the 
window 

length of the y axis 


With two integers for each FP number, 
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#$FFFF D3 


S8XB,0(A6,A1.L) 


NUMBER BY THE OTHER TO LEAVE X COORD ON RI STACK. 


3 


SYA,0(A6,A1.L} 


3 


NUMBER TOS 


the integer table contains six integers. 

As with the other listings, they are proc- 
essed in reverse order to get the three FP 
parameters on the Al stack in the correct 
order. 

Finally we make the trap call as before, 
this time with $34 in DO for SD_SCALE trap 
call. 


#RI_DIV ON DO 


Pixels take a fix 


GCURSOR (Listing six) is slightly dif- 
ferent in format from the others. It sets the 
position of the cursor in the window using 
a combination of graphics coordinates, 
and pixel coordinates. It works like this: a 
pair of graphics coordinates fixes a point in 
the window. (Remember, the graphics 
origin may not even be on the screen.) 
Then, having fixed this point, a pair of 
pixels offsets from this point will set the 
position of the cursor. SD_GCUR requires 
four FP parameters on the RI! stack, as 
follows, starting with the top of the RI stack. 


#RI_FLDAT ON DO 


#R1_DIV ON DO 


OR 4(A7),AO OR B{A7),AO ETC. 
CONSOLE CHANNEL ID IN AO 
#SD.SCALE ON DO 

INFINITE TIMEOUT 


x coordinate to be fixed in the window 
MAKE Al STACK ABSOLUTE 


y coordinate to be fixed in the window 
pixel offset to the right of the fixed point 
pixel offset below the fixed point 


SKIP OVER INTEGER TABLE, ETC 


1ST 
2ND 
1ST 
2ND 
18T 
2ND 


INTEGER HEIGHT 
INTEGER HEIGHT 
INTEGER x 
INTEGER x 
INTEGER ¥ 
INTEGER Y 


Now pixel offsets will clearly be integers 
(you can't move 25.63 pixels!) so although | 
they are in FP format, they can each be 
obtained by simply converting one integer 
into FP format. 

With two integers for each FP graphics 
coordinate, and one integer for each pixel 
offset, the integer table contains six inte- 
gers. 

As with the other listings, they are proc- 


RI_NEG IN DO 


Listing & 


; 
5 
3 
3 
; 
3 
3 
3 
3 
3 
i 
3 
i 
5 
5 
5 


GCURS 


FEE EE IEEE EIR TIE IIE IR JE IE AE EER HIE IEEE GI RETR ICIEIETIIGIGICICITSIIE IEEE IE JEJE IRA bE aE IE ae 
‘GCURSOR ‘ 

Fe EE EEE IEEE IEE EE EERE IEEE EE REGIE IEE EE EEE IE DE IEG FEE EIST HIME 

THIS ROUTINE SETS THE GRAPHICS CURSOR POSITION. 

THE SD.GCUR TRAP REQUIRES 4 F.P. PARAMETERS, X AND Y COORDINATES OF A 

POINT IN THE WINDOW, AND THE RIGHT AND DOWN PIXEL OFFSETS OF THE CURSOR 

FROM THIS POINT. 

THE PIXEL OFFSETS ARE ENTERED AS ONE INTEGER EACH. 

EACH COORDINATE IS ENTERED AS TWO INTEGERS, AND THE COORDINATE IS THE 

RESULT OF THE F.P. DIVISION OF THE FIRST INTEGER BY THE SECOND. 

THE & INTEGERS ARE ENTERED IN THE INTEGER TABLE. 


PUT Ri STACK SO BELOW TOP OF DATA SPACE. 
LEA.L —5S0 (AS) ,AL 3 RI STACK ON Alt 
FIX PIXEL OFFSET DOWNWARDS 
MAKE ROOM FOR INTEGER 
SUBQ.L 
STACK 
MOVE.W 


#2,A1 
PUT INTEGER ON RI 
DOWN ,O(AG,AL.L? 
CONVERT TO F.P. 
MOVE #8 ,DO 
MOVE.W #11C,A3 
JSR (AS> 
USE NEXT LINE IF A NEGATIVE (UP) OFFSET IS REQUIRED 
JSR NEGATE 


3 #RI_FLOAT ON DO 
3 RI_EXEC ON AS 


NEXT FIX PIXEL OFFSET TQ THE RIGHT 


MAKE ROOM FOR INTEGER 
SUBR.L 

PUT INTEGER ON RI STACK 
MOVE.W 


#2,A1 


RIGHT ,O(AS,AL.L) 
CONVERT TO F.P. 
MOVED 
JSR 


#8,D0 
{A3) 
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USE NEXT LINE IF & NEGATIVE (LEFT) OFFSET IS REQUIRED 


JSR NEGATE 


NEXT FIX THE COORDINATES 
MAKE ROOM FOR 1ST INTEGER 
SUBa.L #2,A1 
PUT FIRST INTEGER ON RI STACK 
MOVE .W 
CONVERT TO F.FP. 
MOVED #8,D0 
JSR (AS) 
REPEAT FOR 2ND INTEGER 
SUBQ.L 
MOVE. W 
MOVER #8,DO 
JSR (AS) 


#2,A1 


BYA,O(A6,A1.L) 


GYB,Ot(A6,A1.L) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER TO LEAVE X COORD ON RI STACK. 


MOVED #210,D0 
JSR (AS) 


; #RI_DIV ON DO 


USE NEXT LINE IF A NEGATIVE Y COORDINATE IS REQUIRED 


JSR NEGATE 


NOW REPEAT THE WHOLE THING FOR THE X COORDINATE 


MAKE ROOM FOR 1ST INTEGER 
SUBQ.L #2,A1 
PUT FIRST INTEGER ON RI STACK 
 MOVE.W 
CONVERT TO F.F. 
#8,D0 
(a3) 


REPEAT FOR 2ND INTEGER 
SUBQ.L 
MOVE. W 


#2,A1 


MOVED #8,DO 
JSR (A3) 


GxXA,O(AG,AL.L) 


3 #RI_FLOAT ON DO 


GXB,0(AS,A1.L) 


NOW DIVIDE ONE F.P. NUMBER BY THE OTHER 70 LEAVE Y COORD ON R1 STACK. 


MOVED #$10,D0 
JSR CAS) 


3 #RI_DIV ON DO 


USE NEXT LINE IF A NEGATIVE ¥ COORDINATE IS REQUIRED 


JSR NEGATE 


NOW SET THE GRAPHICS CURSOR 
MOVE.L (A7),AO 
MOVEQ 
MOVE. W 
ADDA.L Ad, AL 
TRAP #3 
BRA.S NEXTBIT 


#$34 ,DO 


; 
} INTEGER TABLE 

. DOWN oc.wW 50 
«RIGHT DC.W 10 
.GXA DC.W 10 
.GXB DC.W 1 
.BYA DC.W 20 
.6YB DC.W rT 


#$FFFF DS 


OR 4(A7),AO OR 8(A7),AO ETC. 
CONSOLE CHANNEL ID IN AO 
#SD.POINT ON DO 

INFINITE TIMEOUT 

MAKE 41 STACK ABSOLUTE 


SKIP OVER INTEGER TABLE, ETC 


PIXEL OFFSET DOWNWARDS 
PIXEL OFFSET TO THE RIGHT 
1ST INTEGER OF X 

2ND INTEGER OF X 

15T INTEGER DF Y 

2ND INTEGER OF Y 


3 
5 SUBROUTINE TO NEGATE THE F.P. NUMBER TOS 


3 
«NEGATE MOVEQ 
JSR t{AS) 


RTS 


#$14,D0 


; RI_NEG IN DO 


i 
5 RENEE Ee Ae Ei EE EE A IE HE TE TEE ETE DEE IE IE IEEE IEE IE EEE TE TE IEE HE HET EE TEE HEHE TE EE 


essed in reverse order to get the four FP’ 


parameters on the RI stack in the correct 
order. 

Finally, we make the trap call as before, 
this time with $36 in DO for SD_GCUR trap 
call. 


Fill command 


FLOOD (Listing seven) turns the 
graphics fillcommand on and off. When on, 
non re-entrant shapes are filled with the ink 
colour. Once an enclosed shape has been 
filled, the command automatically switches 
off, and needs to be called again to fill the 
next shape. This is a very simple trap, 
much like the screen handling traps dealt 
with in part 3. The reason it has been left 
until now is because it only works with 
shapes drawn using graphics coordinates, 
So it fits in here. 
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The trap requires $35 in DO for 
SD_FLOOD, and a long word in D1 to set 
the status. This is 1 to turn the flood on, and 
0 to turn the flood off. 


Listing 7 


And there it is. By adding these com- 
mands to the programs put together in 
parts 2 and 4 of this series, you can draw 
shapes on the screen to your heart's con- 
tent. However, there are one or two final 
points that need to be mentioned. 

Those of you familiar with Qdos will realise 
that | have avoided using an alternative 
arithmetic package utility called RI EXECB. 
Itworks like Rl_EXEC, except thatit allows 
a whole list of arithmetic operations to be 
executed in order. Since this is precisely 
what we have been doing using RI_EXEC, 
RI_EXECB should have made our chunks 
of code more concise and, presumably, 
faster. There are two reasons why | have 
not used it. Firstly, these chunks were 
actually put together from smaller chunks 
to use the RILEXEC command, and | find 
this modular approach more systematic, 
and easier to understand, even if the result 
is not optimised for brevity and speed. 
Secondly, RI.EXECB is undoubtedly a deal 
more difficult to code (at least, | find it so). 


Simple shapes 


The last point is this: these chunks of 
code have been designed to do fairly 
simple tasks of drawing shapes from data 
in fixed parameter tables, but there are 
situations where this will not do. We may, 
for example, wish to use SD.LINE to plot 
a graph, where the program calculates 
each pointinturn, andthen uses SD.LINE 
to draw from the previous point to the 
next. Alternatively, we may wish to draw 
shapes taking information from the key- 
board, either keying in actual numbers as 
parameters, or even using the cursor keys 
to fix the points to be used (like the ‘rubber 
banding’ in CAD programs). Clearly, as 
things stand, we will have difficulty using 
these chunks of code in these ways. Still, 
we can't run before we walk, and later we 
shall look at possible ways of dealing with 
these problems. 

Next time, we shall look at making (and 
stopping) sounds on the QL, and reading 
keypresses. That is, we shall look at using 
the IPC 8049 microprocessor built into 
your QL. Happy coding! 
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THIS ROUTINE TURNS GRAPHICS ‘FILI.° 


Di.L = 0 
Di.L = 1 


GRAPHICS FILL OFF 
GRAPHICS FILL ON 


ON OR OFF DEPENDING ON THE LONG 


TRIS IS AUTOMATICALLY SWITCHED OFF AFTER EACH GRAPHICS FILL. 
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FLOOD MOVE .L 
MOVER 
MOVE .L 
MOVE. W 
TRAP #3 


#1,D1 


(A7) ,AO 
##35,D0 


#SFFFF ,DS 


3 OR 4(A7),A0 OR B(A7),AO ETC. 
3 CONSOLE CHANNEL ID IN AO 

3 #SD.FLODD ON DO 

3 GRAPHICS FILL ON 

3 INFINITE TIMEOUT 
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PERFECTION 
PERFECTION PLUS 


Perfection |s the finest word processor available for any 
computer. We have recelved dozens of letters from 
happy users saying Just this... and all of these letters 
were unsolicited, "Superb" was used most often. 


Perfection manages to achieve all the sophistication of 
the most complex PC word processors while still using a 
user Interface as friendly as Quill's. Perfection has a dual 
system of user control: menus while you are familiarising 
yourself with the program, and direct commands for the 
time when you feel ready for more adventurous things. 
The two systems can be used interchangeably and even 
simultaneously, Even more exciting - both systems are 
Iterative. In case you don't understand what this means, 
let us give you an example: suppose you wished to move 
a block of text using the menus. You would choose Block 
Move (yes, it is right In the first menu} and the screen 
would then tell you to move your cursor to the start of 
the block. On most word processors you would have to 
navigate manually to this position: indeed, on many of 
them (Quill Included) only a subset of the normal 
navigation commands would be available. On Perfection, 
not only can you use all the manual navigation 
commands (viz all 28 permutations of CTRL, ALT, SHIFT 
and the arrow keys!) but In addition you can use direct 
commands Ike GoTo Line or Page or any of elght 
markers. Even more amazingly, you can use Search 
(elther as a direct command or from the menus) even 
though you are already ‘within’ a menu option. 


Perfection has about 200 commands, but the layout of 
menus and the choice of keys for the direct commands 
makes It very easy to master. Though a 100+ page 
manual is provided (with all the important bits right at 
the front), you should only need to consult it for 
specialised operations like macros. 


Even If speed Is not particularly Important to you, we 
assure you that Perfection's lightning performance will 
enable you to use the word processor In sensible ways 
that you would not have dreamed possible before. For 
example, scrolling 100 pages or so is accomplished so 
quickly using the normal navigation commands that you 
do not need to bother using a menu option to do the 
move. Spelichecking, assuming you have Perfection Plus, 
Is accomplished virtually Instantly: to spellcheck this 
whole ad (all the pages) would take under 1.5 seconds... 
Searching (you can switch case sensitivity, as well as 
equivalences between tabs, soft spaces and hard spaces) 
is at the rate of about 100 A4 pages per second. 


Moving from one word processor to another is usually 
very traumatic, With Perfection, this will not be the case. 
Not only can Perfection read In Quill doc and _exp files 
directly (you do not even need to tell it they are Quill 
files!) but It cam make direct and immediate use of your 
| existing Quill printer driver. File re-export is also possible, 


Perfection [s truly WYSIWYG: this means that bold 
appears bold on screen, italics appear as Italics, 
underlined as underlined, and so an. Of course, your 
printer may have functions we do not know about 
(upside down?). To deal with these, Perfection provides a 
number of on-screen shaded strips: these can be 
attached to any printer function you wish, and will not 
upset Justification as a translate would, Of course, 
translates are provided as well! 


A variety of statistics on the document being processed 
are available: some of them are on view all the time, the 
rest can be toggled to instantly. Not only is there a word 
count, but also page, line, character and special 
character (like Superscript Off) counts. There are also a 
dozen status indicators, letting you know whether you 
are In Insert or Overwrite mode, whether a block Is 
defined, whether Interactive spellchecking Is enabled 
etc. Current line {from top as well as within page) and 
column positions and character codes are also available. 


A terrific feature of Perfection is the dual screen mode. 
You can view one part of the document while editing 
another, The sizes of the two windows are themselves 
adjustable, both in real-time or via the configurator, We 
should devote more space to the configurator: however, 
It must suffice to say that everything that could be 
dynamically set within Perfection may also be preset 
with the configurator. The configurator can, for 
example, allow you to select any of 256 colours for any 
of a dozen parameters (like paper colour, border colour, 
status window Ink and paper colour etc). 


Perfection is fully multitasking without need for any 
external accessory: however, If you already use QPAC or 
Taskmaster or similar and are happy, you may go on 
doing sa. 


There is absolutely no way that we can prepare you for 
the quality ‘feel’ of Perfection. We have a great deal of 
experfence using PC word processors costing many 
hundreds of pounds: with absolutely no exception, 
Perfection is far easier to use and master. 


So if you thought Perfection was unattainable, you have 
avery pleasant surprise coming to youl 


LIGHTNING SPECIAL EDITION 
LIGHTNING 


These programs accelerate QL operation by up to 10x (2x 
4x |s typical} without having any adverse effect 
whatsoever on compatibility or anything else. Lightning 
SE Is typically 40% faster than the standard version. This 
acceleration Is totally Independent of, and in addition to, 
any speed-up obtained by hardware means. So if you 
have Gold Card, your need for Lightning SE is just the 
same as |f you had only an unexpanded QL — Lightning 
SE will accelerate both by the same ratio. 


The Lightning programs achieve their acceleration by 
automatically paging out sections of the QL's operating 
system and replacing these with optimal, concise code 
written by us. 


LUghtning installation is a completely automatic and one- 
off: no knowledge of computing or programming Is 
required. Once installed, Lightning can be completely 
forgotten about - you will soon get used to the superb 
speed! Knob twiddlers are catered for too. 


Lightning technology Is not built in to any of our other 
programs, Perfection users (as well as users of all other 
QL software) should therefore use Lightning all the time. 


In summary: If you do not have Lightning, you are 
wrong. Buy this one ARST OF ALL! 


PROFESSIONAL PUBLISHER 


The Professional in Professional Publisher is 
Professional Publisher supplied with a generous 
refers to the quality of selection of fonts of vari- 
output from that program, ous sizes, as well as clip 
and is not meant to sug- 
gest any complexity of op- 
eration. Few programs are 


as easy to use as this Justification 


one: > 
99% of 
users will 
be able 
to do 
with- 

out using 
a manualt 
Professional Publisher [s by 
far the best OTP program 
for the QL. It is fully com- 
patible with Perfection, 
Editor, Quill, Eye-Q & the 
ASCII editors. It allows you 
to both create and import 
both text and graphics. 
Text can be ‘poured’ Into 
boxes of any shape, size 
and number, automatically 
maintaining justification 
and hyphenation settings. 
So flowing text around 
graphics Is a doddle. 


is by pixel, not by 

character, This gives a 
much smoother effect. 
k is pointless for us to try 
to list all of Professional 
Publisher's features — we 
would end up filling half 
the magazine! We will 
concentrate on just a few 
‘points’: Professional 
Publisher is extremely pre- 
cise, performing all its 
computations accurate to 
a@ small fraction of a mil- 
limetre. All its features can 
be preset by you using its 
configurator, ruling out 
the need for repetitive key 
strokes. 
The program Is extraordi- 
narily versatile while re- 
maining intultive in Its 
user Interface. Buy itl 


PROFESSIONAL PUBLISHER 
TOOLBOXES 


Toolbox | Is an excellent collection of high definition 
fonts, clip art and utility programs for Professional 
Publisher, While the fonts supplied with Professional 
Publisher are excellent, many users will feel the need for 
a wider range of typefaces and styles. 


Toolbox Il starts where Toolbox | leaves off, providing an 
even better — and different — font collection. 


The two Toolboxes complement each other and are 
available together at a special price. 


FONT ENLARGER 
GRAFIX 


Font Enlarger does exactly what you would expect it to 
from its name. While Professional Publisher Is also 
capable of enlarging fonts, It does them ‘on the fly’ and 
consequently is not able to remove the jaggedness 
caused by magnification. Font Enlarger is much cleverer, 
and enhances detail without any step effect. 


While the bullt-in printer driver for Professional 
Publisher is excellent with 9-pin printers, it is not optimal 
with 24-pin or laser printers. Grafix Is. 
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EYE-Q 
ULTRAPRINT 


Eye-Q Is the finest graphics program for the QL While | 
there may be other graphics programs with a few more 
features, no other program comes anywhere close to 
Eye-Q in sheer enjoyability. Eye-Q develops a pleasurable 
tactile relationship with you, and makes you feel like an 
artist {even If you aren't). Eye-Q graphics can be read in 
by Professional Publisher, and the latter's pages can be 
exported to Eye-Q (using Toolbox I). Everything in Eye-Q 
Is menu-driven and there is context-sensitive help. 


While Eye-Q has Its own printer driver, Ultraprint allows 
you 22 distinct styles/sizes of printer output. The 
reasoning Is that the scale of gradation suitable for 
pictures Is probably unsuitable for text or line drawings. 


PC CONQUEROR 
SOLUTION 


PC Conqueror makes your QL [nto a PC-compatible 
machine,automatically, It does this by software means 
only, so there are no screws to undo or wires to fiddle 
with, Your QL stays a QL too. 


Why, might you ask, should you wish to make your QL 
into a PC-compatible? The reason is simple: you may wish 
to run the same programs at home as you do at work. 
Alternatively, you may wish to tap Into the vast 
storehouse of PC software of every type and description 
you could imagine. 


Using PC Conqueror could not be easier. Just boot up your 
machine with the PC Conqueror disk In floppy 1 and 
within 10 seconds your QL will be transformed into a PC 
that |s just waiting to be switched on. From this point on 
you will do exactly the same as you would If you were 
running a ‘real’ PC — this means putting a DOS disk (any 
version) Into one of your drives and pressing a key. If you 
do not already have legal access to a copy of DOS, we can 
provide you with one at reasonable cost (see our price 
list). 


PC Conqueror runs as fast as it Is possible for a PC 
emulator to run: we have used all our skills to make it 
work quickly. Of course, you can make the emulation 
must faster by using Gold Card and Lightning SE. With 
this combination, you should get speed noticeably better 
than that of a PC XT... 


PC Conqueror allaws you to fine-tune the operating 
environment of the PC in order to Improve performance, 
If you get a hard disk or other high capacity floppy 
system, you can utilise part or all of It as a PC hard disk. 


PC Conqueror occupies under 80K and leaves 667K free 
for DOS when run on a Trump Card. This is more than you 
will get on a ‘real’ PC. 


Solution does what Conqueror does but Is about half as 
fast and Is not quite as cormnpatible. 


SPELLCHECKER 
MEGA DICTIONARY 


Spelichecker Is what makes Perfection Into Perfection 
Plus. We have made it available as a separate item for two 
reasons: (a) to allow Perfection owners to add It later 
(b) to allow users of other word processors to benefit 
from the very best (n spellchecking technology, 


Spelichecker {s supplied complete with three dictionaries 
of differing sizes as well as a system for bullding, 
reviewing and maintaining user dictionaries. 


Spelichecker's ultimate accessory Is the Mega Dictionary, 
which gives the user a vocabulary of over 350,000 words! 


3D PRECISION CAD SYSTEM 


This program allows you to manipulate shapes and 
figures In 20 and 3D at a speed that will leave you 
breathless. Irrespective of whether your Interest is in CAD, 
in animation or in just having fun, this program should 
not be missed. You can output to plotters directly from It, 
or alternatively create graphics screens to be manipulated 
and output by Eye-Q, Ultraprint or Professional Publisher. 


SUPER SPRITE GENERATOR 


SSG moves things about the screen very fast and very 
smoothly, without flicker. Sprites aan have up to 16 frames. 


